home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / mac / FILES / EDISON.DIR / 00016_Script_16 < prev    next >
Text File  |  1997-05-26  |  357b  |  17 lines
  1. --s InitProgram
  2.  
  3.  
  4. on exitFrame
  5.   
  6.   global gLocal, gInventorIndexNum, gActorListMgrObj, gInterfaceMgrObj, gQTNavMgr
  7.   setInventGlobalStrip
  8.   updatestage
  9.   
  10.   set gLocal = TRUE
  11.   set gInventorIndexNum = 1
  12.   
  13.   if not objectp( gActorListMgrObj ) then InitProgram
  14.   mSetInventor (gInterfaceMgrObj, #EDISON)
  15.   mSetNavQTFlags ( gQTNavMgr )
  16.   
  17. end