home *** CD-ROM | disk | FTP | other *** search
/ PC Master 1997 July & August / PCM97.iso / demos.dxr / 00031_info2.ls < prev    next >
Encoding:
Text File  |  1998-06-23  |  637 b   |  27 lines
  1. on mouseDown
  2.   global tpth, xf
  3.   set btn to the clickOn
  4.   set the member of sprite btn to "info2i"
  5.   updateStage()
  6.   repeat while the stillDown
  7.     updateStage()
  8.   end repeat
  9.   set the member of sprite btn to "info2"
  10.   puppetSprite(13, 1)
  11.   set rr to EMPTY
  12.   if the locH of sprite 13 > 1000 then
  13.     set fnm to tpth & xf
  14.     set fp to new(xtra("fileio"))
  15.     openFile(fp, fnm, 1)
  16.     set rr to readFile(fp)
  17.     closeFile(fp)
  18.     set fp to 0
  19.     set the text of member "details" to rr
  20.     set the loc of sprite 13 to point(130, 113)
  21.     updateStage()
  22.   else
  23.     set the loc of sprite 13 to point(2000, 113)
  24.     updateStage()
  25.   end if
  26. end
  27.