home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / watt.dir / 00270_Script_270 < prev    next >
Text File  |  1997-07-24  |  335b  |  15 lines
  1. --s xtFrm mActivate(gWattBIYobj)
  2.  
  3. global gWattBIYobj, gJournalObj, gBulbExpMgr, gTel, gActiveBYSobj
  4.  
  5. on exitFrame
  6.   
  7.  
  8.   
  9.   if not(objectp(gWattBIYobj)) then set gWattBIYobj = mInit(script "Watt BIY obj")
  10.   set gJournalObj = mInit(script "Journal Object")
  11.   set gActiveBYSobj = gWattBIYobj
  12.   mActivate(gWattBIYobj)
  13.   
  14. end
  15.