home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / gallery.dir / 00024.ls < prev    next >
Encoding:
Text File  |  1994-12-18  |  487 b   |  13 lines
  1. on exitFrame
  2.   global gPictureSprite, gCurrentSection, gNumOPics, gLaunchQTButton, gCurrentPicture
  3.   puppetSprite(gPictureSprite, 1)
  4.   set the castNum of sprite gPictureSprite to the number of cast (gCurrentSection & string(gCurrentPicture))
  5.   repeat with x = 2 to getaProp(gPictureList, gCurrentSection)
  6.     set whichCast to string(gCurrentSection) & string(x)
  7.     if not (the loaded of cast whichCast) then
  8.       preLoadCast(whichCast)
  9.       put the result
  10.     end if
  11.   end repeat
  12. end
  13.