home *** CD-ROM | disk | FTP | other *** search
/ Grandes Inventos / INVENTOS.bin / pc / media / index.dxr / 00247.ls < prev    next >
Encoding:
Text File  |  1996-01-01  |  235 b   |  13 lines
  1. on exitFrame
  2.   global gCurrentLista, gBlink
  3.   if objectp(gCurrentLista) then
  4.     gCurrentLista(mBlinkThunbnail)
  5.   end if
  6.   go(the frame)
  7. end
  8.  
  9. on keyDown
  10.   global gCurrentLista
  11.   gCurrentLista(mKeyDown, the key, charToNum(the key))
  12. end
  13.