home *** CD-ROM | disk | FTP | other *** search
/ L'Encyclopedie Des Jeux Video 8 / EJV8_CD2.ISO / ejv8-cd2 / viewer.dxr / 00033.ls < prev    next >
Encoding:
Text File  |  2003-10-24  |  541 b   |  16 lines
  1. on exitFrame me
  2.   member("codefield").text = EMPTY
  3.   member("FileNameField").text = EMPTY
  4.   member("FolderCaptionField").text = EMPTY
  5.   sprite(9).visible = 0
  6.   sprite(15).visible = 0
  7.   sprite(16).visible = 0
  8.   sprite(18).visible = 0
  9.   sprite(19).visible = 0
  10.   dosRegister("84DB793-1819B7J")
  11.   resolX = getAt(dosGetDisplay(), 1)
  12.   resolY = getAt(dosGetDisplay(), 2)
  13.   window("INFO").rect = rect((resolX / 2) - (560 / 2), (resolY / 2) - (240 / 2), (resolX / 2) - (560 / 2) + 560, (resolY / 2) - (240 / 2) + 240)
  14.   open(window("info.dir"))
  15. end
  16.