home *** CD-ROM | disk | FTP | other *** search
/ PC Joker 2000 December / PCJ1200CD2.ISO / JOKER95.EXE / JOKER95.dxr / Interne_14.ls < prev    next >
Encoding:
Text File  |  2000-10-17  |  345 b   |  16 lines
  1. on mouseUp
  2.   changeviewI()
  3.   if objectp(myfile) then
  4.     set myfile to 0
  5.   end if
  6.   set myfile to new(xtra("fileio"))
  7.   openFile(myfile, "hauptmen.txt", 1)
  8.   set theFile to readFile(myfile)
  9.   put theFile into field "InfoFenster"
  10.   closeFile(myfile)
  11.   set myfile to 0
  12.   repeat with i = 2 to 5
  13.     set the member of sprite i to 0
  14.   end repeat
  15. end
  16.