home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / image.dir / 00004.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  1004 b   |  33 lines
  1. on exitFrame
  2.   global theImage, theImageList, theCaption
  3.   setPuppets(1, 42, 0)
  4.   setPuppets(13, 19, 1)
  5.   cursor(4)
  6.   createPath("image", item 1 of theImage)
  7.   set the fileName of cast 2 to string(the result)
  8.   if voidp(theImageList) then
  9.     set theImageList to theImage & RETURN
  10.   else
  11.     repeat with n = 1 to the number of lines in theImageList
  12.       if string(line n of theImageList) = string(theImage) then
  13.         delete line n of theImageList
  14.       end if
  15.     end repeat
  16.     put theImage & RETURN after theImageList
  17.     if the number of lines in theImageList > 76 then
  18.       delete line 1 of theImageList
  19.     end if
  20.   end if
  21.   createPath("caption", char 1 to 8 of item 1 of theImage & ".cpt")
  22.   openXLib("fileio")
  23.   set thetextfile to FileIO(mnew, "read", the result)
  24.   if objectp(thetextfile) then
  25.     set theCaption to thetextfile(mReadFile)
  26.     thetextfile(mdispose)
  27.     closeXLib("fileio")
  28.   else
  29.     set theCaption to "caption error - missing or incorrectly named"
  30.   end if
  31.   cursor(-1)
  32. end
  33.