home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / bell.dir / 00339_Script_339 < prev    next >
Text File  |  1997-05-26  |  326b  |  11 lines
  1. --s: xtFrm mInit(script "TelephoneParentScript")
  2.  
  3. global gTel, gJournalObj, gActiveBYSobj
  4. global gEdisonBIYobj,gWattBIYobj
  5.  
  6. on exitframe
  7.   if not(objectp( gTel )) then set gTel = mInit(script "TelephoneParentScript")
  8.   set gActiveBYSobj = gTel
  9.   set gJournalObj = mInit(script "Journal Object")
  10.   mActivate(gTel)
  11. end