egtstone3d/Utility/Map.vb

Imports EgtWPFLib5

Module Map

#Region "FIELDS & PROPERTIES"

   Private m_refMainWindowVM As MainWindowVM
   Private m_refSceneButtonVM As SceneButtonVM
   Private m_refTopPanelVM As TopPanelVM
   Private m_refSecondaryWindowVM As SecondaryWindowVM
   Private m_refProjManagerVM As ProjManagerVM
   Private m_refViewPanelVM As ViewPanelVM
   Private m_refViewPanelProspectiveVM As ViewPanelProspectiveVM
   Private m_refGridPanelVM As GridPanelVM
   Private m_refOptionWindowVM As OptionWindowVM
   Private m_refScriptWindowVM As ScriptWindowVM

   Private m_refMainWindowV As MainWindowV
   Private m_refSecondaryWindowV As SecondaryWindowV
   Private m_refSceneHostV As SceneHostV
   Private m_refSceneButtonV As SceneButtonV
   Private m_refSplashScreenV As SplashScreenV
   Private m_refScriptWindowV As ScriptWindowV

#End Region    ' Fields & Properties

#Region "Get"

   Public ReadOnly Property refMainWindowV As MainWindowV
      Get
         Return m_refMainWindowV
      End Get
   End Property

   Public ReadOnly Property refSecondaryWindowV As SecondaryWindowV
      Get
         Return m_refSecondaryWindowV
      End Get
   End Property

   Public ReadOnly Property refSecondaryWindowVM As SecondaryWindowVM
      Get
         Return m_refSecondaryWindowVM
      End Get
   End Property

   Public ReadOnly Property refMainWindowVM As MainWindowVM
      Get
         Return m_refMainWindowVM
      End Get
   End Property

   Public ReadOnly Property refProjManagerVM As ProjManagerVM
      Get
         Return m_refProjManagerVM
      End Get
   End Property

   Public ReadOnly Property refViewPanelVM As ViewPanelVM
      Get
         Return m_refViewPanelVM
      End Get
   End Property

   Public ReadOnly Property refViewPanelProspectiveVM As ViewPanelProspectiveVM
      Get
         Return m_refViewPanelProspectiveVM
      End Get
   End Property

   Public ReadOnly Property refGridPanelVM As GridPanelVM
      Get
         Return m_refGridPanelVM
      End Get
   End Property

   Public ReadOnly Property refOptionWindowVM As OptionWindowVM
      Get
         Return m_refOptionWindowVM
      End Get
   End Property

   Public ReadOnly Property refScriptWindowVM As ScriptWindowVM
      Get
         Return m_refScriptWindowVM
      End Get
   End Property

   Public ReadOnly Property refSceneHostV As SceneHostV
      Get
         Return m_refSceneHostV
      End Get
   End Property

   Public ReadOnly Property refSceneButtonV As SceneButtonV
      Get
         Return m_refSceneButtonV
      End Get
   End Property

   Public ReadOnly Property refSplashScreen As SplashScreenV
      Get
         Return m_refSplashScreenV
      End Get
   End Property

   Public ReadOnly Property refScriptWindowV As ScriptWindowV
      Get
         Return m_refScriptWindowV
      End Get
   End Property

   Public ReadOnly Property refSceneButtonVM As SceneButtonVM
      Get
         Return m_refSceneButtonVM
      End Get
   End Property

   Public ReadOnly Property refSceneHostVM As MySceneHostVM
      Get
         Return LibMap.refSceneHostVM
      End Get
   End Property

   Public ReadOnly Property refTopPanelVM As TopPanelVM
      Get
         Return m_refTopPanelVM
      End Get
   End Property

#End Region    ' Get

#Region "Set"

   Friend Function SetRefMainWindowV(MainWindowV As MainWindowV) As Boolean
      m_refMainWindowV = MainWindowV
      Return Not IsNothing(m_refMainWindowV)
   End Function

   Friend Function SetRefSecondaryWindowV(SecondaryWindowV As SecondaryWindowV) As Boolean
      m_refSecondaryWindowV = SecondaryWindowV
      Return Not IsNothing(m_refSecondaryWindowV)
   End Function

   Friend Function SetRefMainWindowVM(MainWindowVM As MainWindowVM) As Boolean
      m_refMainWindowVM = MainWindowVM
      Return Not IsNothing(m_refMainWindowVM)
   End Function

   Friend Function SetRefSecondaryWindowVM(SecondaryWindowVM As SecondaryWindowVM) As Boolean
      m_refSecondaryWindowVM = SecondaryWindowVM
      Return Not IsNothing(m_refSecondaryWindowVM)
   End Function

   Friend Function SetRefProjManagerVM(ProjManagerVM As ProjManagerVM) As Boolean
      m_refProjManagerVM = ProjManagerVM
      Return Not IsNothing(m_refProjManagerVM)
   End Function

   Friend Function SetRefViewPanelVM(ViewPanelVM As ViewPanelVM) As Boolean
      m_refViewPanelVM = ViewPanelVM
      Return Not IsNothing(m_refViewPanelVM)
   End Function

   Friend Function SetRefViewPanelProspectiveVM(ViewPanelProspectiveVM As ViewPanelProspectiveVM) As Boolean
      m_refViewPanelProspectiveVM = ViewPanelProspectiveVM
      Return Not IsNothing(m_refViewPanelProspectiveVM)
   End Function

   Friend Function SetRefGridPanelVM(GridPanelVM As GridPanelVM) As Boolean
      m_refGridPanelVM = GridPanelVM
      Return Not IsNothing(m_refGridPanelVM)
   End Function

   Friend Function SetRefOptionWindowVM(OptionWindowVM As OptionWindowVM) As Boolean
      m_refOptionWindowVM = OptionWindowVM
      Return Not IsNothing(m_refOptionWindowVM)
   End Function

   Friend Function SetRefScriptWindowVM(ScriptWindowVM As ScriptWindowVM) As Boolean
      m_refScriptWindowVM = ScriptWindowVM
      Return Not IsNothing(m_refScriptWindowVM)
   End Function

   Friend Function SetRefSceneHostV(SceneHostV As SceneHostV) As Boolean
      m_refSceneHostV = SceneHostV
      Return Not IsNothing(m_refSceneHostV)
   End Function

   Friend Function SetRefSceneButtonV(SceneButtonV As SceneButtonV) As Boolean
      m_refSceneButtonV = SceneButtonV
      Return Not IsNothing(m_refSceneButtonV)
   End Function

   Friend Function SetRefSplashScreen(SplashScreenV As SplashScreenV) As Boolean
      m_refSplashScreenV = SplashScreenV
      Return Not IsNothing(m_refSplashScreenV)
   End Function

   Friend Function SetRefScriptWindowV(ScriptWindowV As ScriptWindowV) As Boolean
      m_refScriptWindowV = ScriptWindowV
      Return Not IsNothing(m_refScriptWindowV)
   End Function

   Friend Function SetRefSceneButtonVM(SceneButtonVM As SceneButtonVM) As Boolean
      m_refSceneButtonVM = SceneButtonVM
      Return Not IsNothing(m_refSceneButtonVM)
   End Function

   Friend Function SetRefSceneHostVM(SceneHostVM As SceneHostVM) As Boolean
      LibMap.SetRefSceneHostVM(SceneHostVM)
      Return Not IsNothing(LibMap.refSceneHostVM)
   End Function

   Friend Function SetRefTopPanelVM(TopPanelVM As TopPanelVM) As Boolean
      m_refTopPanelVM = TopPanelVM
      Return Not IsNothing(m_refTopPanelVM)
   End Function

#End Region    ' Set

#Region "Init"

   Friend Function BeginInit(MainWindowVM As MainWindowVM) As Boolean
      m_refMainWindowVM = MainWindowVM
      Return Not IsNothing(m_refMainWindowVM)
   End Function

   Friend Function EndInit() As Boolean
      ' Verifico se tutti i pezzi necessari sono stati caricati
      Return Not IsNothing(m_refMainWindowVM) AndAlso
             Not IsNothing(LibMap.refStatusBarVM) AndAlso
             LibMap.EndInit()
   End Function

#End Region    ' Init

End Module