home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / mac / FILES / EDISON.DIR / 00057_Script_57 < prev    next >
Text File  |  1997-05-26  |  231b  |  12 lines
  1. --ss xtFrm mActivate(gKinetoscopeObj)
  2.  
  3. global gKinetoscopeObj
  4.  
  5. on exitFrame
  6.   
  7.   if not objectp(gKinetoscopeObj) then
  8.     set gKinetoscopeObj = mInit(script "Kinetoscope obj")
  9.   end if
  10.   
  11.   mActivate(gKinetoscopeObj)
  12. end