Imports EgtWPFLib5

Public Module LibMap

   Private m_refStatusBarVM As StatusBarVM
   Private WithEvents m_refSceneHostVM As SceneHostVM
   Private m_refShowPanelVM As ShowPanelVM
   Private m_refMachinePanelVM As MachinePanelVM
   Private m_refMachGroupPanelVM As MachGroupPanelVM
   Private m_refWaterjetDbWindowVM As WaterjetDbWindowVM
   Private m_refMachiningDbWindowVM As MachiningDbWindowVM
   Private m_refToolDbWindowVM As ToolDbWindowVM

#Region "Get"

   Public ReadOnly Property refStatusBarVM As StatusBarVM
      Get
         Return m_refStatusBarVM
      End Get
   End Property

   Public ReadOnly Property refSceneHostVM As SceneHostVM
      Get
         Return m_refSceneHostVM
      End Get
   End Property

   Public ReadOnly Property refShowPanelVM As ShowPanelVM
      Get
         Return m_refShowPanelVM
      End Get
   End Property

   Public ReadOnly Property refMachinePanelVM As MachinePanelVM
      Get
         Return m_refMachinePanelVM
      End Get
   End Property

   Public ReadOnly Property refMachGroupPanelVM As MachGroupPanelVM
      Get
         Return m_refMachGroupPanelVM
      End Get
   End Property

   Public ReadOnly Property refWaterjetDbWindowVM As WaterjetDbWindowVM
      Get
         Return m_refWaterjetDbWindowVM
      End Get
   End Property

   Public ReadOnly Property refMachiningDbWindowVM As MachiningDbWindowVM
      Get
         Return m_refMachiningDbWindowVM
      End Get
   End Property

   Public ReadOnly Property refToolDbWindowVM As ToolDbWindowVM
      Get
         Return m_refToolDbWindowVM
      End Get
   End Property

#End Region    ' Get

#Region "Set"

   Public Function SetRefStatusBarVM(StatusBarVM As StatusBarVM) As Boolean
      m_refStatusBarVM = StatusBarVM
      Return Not IsNothing(m_refStatusBarVM)
   End Function

   Public Function SetRefSceneHostVM(SceneHostVM As SceneHostVM) As Boolean
      m_refSceneHostVM = SceneHostVM
      Return Not IsNothing(m_refSceneHostVM)
   End Function

   Public Function SetRefShowPanelVM(ShowPanelVM As ShowPanelVM) As Boolean
      m_refShowPanelVM = ShowPanelVM
      Return Not IsNothing(m_refShowPanelVM)
   End Function

   Friend Function SetRefMachinePanelVM(MachinePanelVM As MachinePanelVM) As Boolean
      m_refMachinePanelVM = MachinePanelVM
      Return Not IsNothing(m_refMachinePanelVM)
   End Function

   Public Function SetRefMachGroupPanelVM(MachGroupPanelVM As MachGroupPanelVM) As Boolean
      m_refMachGroupPanelVM = MachGroupPanelVM
      Return Not IsNothing(m_refMachGroupPanelVM)
   End Function

   Public Function SetRefWaterjetDbWindowVM(WaterjetDbWindowVM As WaterjetDbWindowVM) As Boolean
      m_refWaterjetDbWindowVM = WaterjetDbWindowVM
      Return Not IsNothing(m_refWaterjetDbWindowVM)
   End Function

   Public Function SetRefMachiningDbWindowVM(MachiningDbWindowVM As MachiningDbWindowVM) As Boolean
      m_refMachiningDbWindowVM = MachiningDbWindowVM
      Return Not IsNothing(m_refMachiningDbWindowVM)
   End Function

   Public Function SetRefToolDbWindowVM(ToolDbWindowVM As ToolDbWindowVM) As Boolean
      m_refToolDbWindowVM = ToolDbWindowVM
      Return Not IsNothing(m_refToolDbWindowVM)
   End Function

#End Region    ' Set

#Region "Init"

   Public Function EndInit() As Boolean
      Return Not IsNothing(m_refSceneHostVM)
   End Function

#End Region    ' Init

End Module