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_refMachiningTreeViewItem As MachiningTreeViewItem
   Private m_refToolTreeViewItem As ToolTreeViewItem

#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 refMachiningTreeViewItem As MachiningTreeViewItem
      Get
         Return m_refMachiningTreeViewItem
      End Get
   End Property

   Public ReadOnly Property refToolTreeViewItem As ToolTreeViewItem
      Get
         Return m_refToolTreeViewItem
      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 SetRefMachiningTreeViewItem(MachiningTreeViewItem As MachiningTreeViewItem) As Boolean
      m_refMachiningTreeViewItem = MachiningTreeViewItem
      Return Not IsNothing(m_refMachiningTreeViewItem)
   End Function

   Public Function SetRefToolTreeViewItem(ToolTreeViewItem As ToolTreeViewItem) As Boolean
      m_refToolTreeViewItem = ToolTreeViewItem
      Return Not IsNothing(m_refToolTreeViewItem)
   End Function

#End Region    ' Set

#Region "Init"

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

#End Region    ' Init

End Module