home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / shared.cst / 00019_Script_modeMangerParent < prev    next >
Text File  |  1997-07-24  |  3KB  |  93 lines
  1. --o:  ModeMgr
  2.  
  3.  
  4.  
  5. --INSTANTIATED AS gModeManager
  6. -- Funcitionality:
  7. -- This object sets and closes objects based on score location
  8.  
  9. property pSectionToMngrsList
  10. property pModeToMngrsList
  11. property pCurrentMode, pPreviousMode
  12. property pCurrentSection
  13.  
  14. global gInterfacemgrObj, gAreaManagerObj, gInvestMgrObj
  15. ----------------------------------------------------------------------------ò
  16. on mInit me, InterfaceObj
  17.   
  18.   -- initial state
  19.   
  20.   set pCurrentMode = #QTVR
  21.   set pSectionToMngrsList = [#INTERFACE:gInterfacemgrObj,#INVESTIGATION :gInvestMgrObj]
  22.   set pModeToMngrsList = [#AREA:gAreaManagerObj,#QTVR:gInterfacemgrObj]
  23.   mReSetMode( me, #QTVR )
  24.   return (me)
  25.   
  26. end
  27. ----------------------------------------------------------------------------ò
  28. on mChangeMode me, newMode
  29.   
  30.  
  31.   set MasterModeSwitch = #Area  --of types #Area or #QTVR
  32.   
  33.   if newMode = #Area then
  34.     if pCurrentMode = #QTVR then mHideQTVR(gInterfacemgrObj)
  35.     
  36.   else if newMode = #Frame then
  37.     if pCurrentMode = #QTVR then mHideQTVR(gInterfacemgrObj)
  38.     
  39.   else if newMode = #Pict then
  40.     if pCurrentMode = #QTVR then mHideQTVR(gInterfacemgrObj)
  41.     
  42.   else if newmode = #QTVR then
  43.     set MasterModeSwitch = #QTVR
  44.     
  45.   else  if newMode = #Return then              --This one must be last
  46.     if pPreviousMode = #QTVR then 
  47.       set MasterModeSwitch = #QTVR  
  48.       set newMode = #QTVR  
  49.     else if pPreviousMode = #Area then
  50.       set newMode = #Area                                
  51.     end if
  52.     
  53.   end if
  54.   
  55.   set pPreviousMode = pCurrentMode
  56.   set pCurrentMode = newMode
  57.   
  58.   if NewMode <> #JUMP then 
  59.  
  60.     if MasterModeSwitch = #QTVR then mShowQTVR(gInterfacemgrObj)
  61.     else if MasterModeSwitch = #AREA then mPassActivateEvent(gAreaManagerObj, newMode)
  62.  
  63.   else 
  64.     mHideQTVR(gInterfacemgrObj)
  65.     mReSetMode(me, #QTVR)
  66.   end if
  67.   
  68. end mChangeMode
  69. ----------------------------------------------------------------------------ò
  70. on mChangeSection me, newSection
  71.   
  72.   if newSection = #Interface then go frame "interface"       --<-- that should be integrated into the InterfaceMGR
  73.   mShowQTVR(gInterfacemgrObj)
  74.   
  75.   set pCurrentSection = newSection
  76.   
  77. end
  78. ----------------------------------------------------------------------------ò
  79. on mGetCurrentMode me
  80.   
  81.   return(pCurrentMode)
  82.   
  83. end mGetCurrentMode
  84. ----------------------------------------------------------------------------ò
  85. on mReSetMode me, newmode   -- fresh reboot
  86.   
  87.   set pPreviousMode = #QTVR
  88.   set pCurrentMode = #QTVR 
  89.   
  90. end mSetMode
  91. ----------------------------------------------------------------------------ò
  92.  
  93.