home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / mac / FILES / EDISON.DIR / 00302_Script_302 < prev    next >
Text File  |  1997-05-26  |  650b  |  23 lines
  1. -- s: mInitLightBulbSequence (gBulbExpMgr) --\
  2.  
  3. global gBulbExpMgr, gJournalObj, gWattBIYobj, gActiveBYSobj
  4.  
  5. global gQTpath, gSndPath, rBulbExperimentMgrCastList, gObjectCastLists
  6.  
  7. on exitFrame
  8.   --\  development only
  9.   --  set gTel = 0
  10.   --  set gWattBIYobj = 0
  11.   
  12.   --\
  13.   set rBulbExperimentMgrCastList = value(line 2 of gObjectCastLists)
  14.   if not objectp(gBulbExpMgr ) then
  15.     set gBulbExpMgr = mInit (script "rBulbExperimentMgr", rBulbExperimentMgrCastList, gQTpath, gSndPath)
  16.   end if
  17.   
  18.   set gActiveBYSobj = gBulbExpMgr 
  19.   set gJournalObj = mInit(script "Journal Object")
  20.   
  21.   
  22.   mInitLightBulbSequence (gBulbExpMgr)
  23. end