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