home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / bell.dir / 00011_Script_11 < prev    next >
Text File  |  1997-05-26  |  389b  |  17 lines
  1. --s InitProgram
  2.  
  3. global gLocal, gInventorIndexNum, gBHSobjIndexedLst, gActorListMgrObj, gQTNavMgr
  4.  
  5. on exitFrame
  6.   
  7.   setInventGlobalStrip
  8.   updatestage
  9.   --clearglobals
  10.   set gLocal = TRUE
  11.   
  12.   if not objectp( gActorListMgrObj ) then InitProgram
  13.   set gInventorIndexNum = 2
  14.   mSetNavQTFlags ( gQTNavMgr )
  15.   mSetInventor (gInterfaceMgrObj, #Bell) -- developement only
  16.   
  17. end