Imports EgtWPFLib5

Public Module CoreMap

   'Private m_refMainWindowVM As MainWindowVM
   'Private m_refMyStatusBarVM As MyStatusBarVM
   'Private m_refProjManagerVM As ProjManagerVM
   'Private m_refProdManagerVM As ProdManagerVM
   'Private m_refProjectVM As ProjectVM
   'Private m_refMainMenuVM As MainMenuVM
   Private m_refMachinePanelVM As MachinePanelVM
   Private m_refMyMachGroupPanelVM As MyMachGroupPanelVM
   'Private m_refLeftPanelVM As LeftPanelVM
   'Private m_refBottomPanelVM As BottomPanelVM
   'Private m_refShowBeamPanelVM As ShowBeamPanelVM
   'Private m_refConfigurationPageVM As ConfigurationPageVM
   'Private m_refRawPartListVM As RawPartListVM
   'Private m_refPartInRawPartListVM As PartInRawPartListVM
   'Private m_refWarehouseWndVM As WarehouseWndVM
   'Private m_refFeatureListVM As FeatureListVM
   'Private m_refFreeContourManagerVM As FreeContourManagerVM
   'Private m_refFreeContourInputVM As FreeContourInputVM
   'Private m_refPartManagerVM As PartManagerVM
   'Private m_refInstrumentPanelVM As InstrumentPanelVM
   'Private m_refTopPanelVM As TopPanelVM
   'Private m_refOptimizePanelVM As OptimizePanelVM
   'Private m_refOpenProjectFileDialogVM As OpenProjectFileDialogVM

#Region "Get"

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

   'Public ReadOnly Property refMyStatusBarVM As MyStatusBarVM
   '   Get
   '      Return LibMap.refStatusBarVM
   '   End Get
   'End Property

   'Public ReadOnly Property refProjManagerVM As ProjManagerVM
   '   Get
   '      Return m_refProjManagerVM
   '   End Get
   'End Property
   'Public ReadOnly Property refProdManagerVM As ProdManagerVM
   '   Get
   '      Return m_refProdManagerVM
   '   End Get
   'End Property

   'Public ReadOnly Property refProjectVM As ProjectVM
   '   Get
   '      Return m_refProjectVM
   '   End Get
   'End Property

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

   'Public ReadOnly Property refShowPanelVM As ShowPanelVM
   '   Get
   '      Return LibMap.refShowPanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refMainMenuVM As MainMenuVM
   '   Get
   '      Return m_refMainMenuVM
   '   End Get
   'End Property

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

   'Public ReadOnly Property refLeftPanelVM As LeftPanelVM
   '   Get
   '      Return m_refLeftPanelVM
   '   End Get
   'End Property

   Public ReadOnly Property refMachGroupPanelVM As MyMachGroupPanelVM
      Get
         Return m_refMyMachGroupPanelVM
      End Get
   End Property

   'Public ReadOnly Property refBottomPanelVM As BottomPanelVM
   '   Get
   '      Return m_refBottomPanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refShowBeamPanelVM As ShowBeamPanelVM
   '   Get
   '      Return m_refShowBeamPanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refConfigurationPageVM As ConfigurationPageVM
   '   Get
   '      Return m_refConfigurationPageVM
   '   End Get
   'End Property

   'Public ReadOnly Property refRawPartListVM As RawPartListVM
   '   Get
   '      Return m_refRawPartListVM
   '   End Get
   'End Property

   'Public ReadOnly Property refPartInRawPartListVM As PartInRawPartListVM
   '   Get
   '      Return m_refPartInRawPartListVM
   '   End Get
   'End Property

   'Public ReadOnly Property refWarehouseWndVM As WarehouseWndVM
   '   Get
   '      Return m_refWarehouseWndVM
   '   End Get
   'End Property

   'Public ReadOnly Property refFeatureListVM As FeatureListVM
   '   Get
   '      Return m_refFeatureListVM
   '   End Get
   'End Property

   'Public ReadOnly Property refFreeContourManagerVM As FreeContourManagerVM
   '   Get
   '      Return m_refFreeContourManagerVM
   '   End Get
   'End Property

   'Public ReadOnly Property refFreeContourInputVM As FreeContourInputVM
   '   Get
   '      Return m_refFreeContourInputVM
   '   End Get
   'End Property

   'Public ReadOnly Property refPartManagerVM As PartManagerVM
   '   Get
   '      Return m_refPartManagerVM
   '   End Get
   'End Property

   'Public ReadOnly Property refInstrumentPanelVM As MyInstrumentPanelVM
   '   Get
   '      Return m_refInstrumentPanelVM
   '   End Get
   'End Property

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

   'Public ReadOnly Property refOptimizePanelVM As OptimizePanelVM
   '   Get
   '      Return m_refOptimizePanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refOpenProjectFileDialogVM As OpenProjectFileDialogVM
   '   Get
   '      Return m_refOpenProjectFileDialogVM
   '   End Get
   'End Property

#End Region    ' Get

#Region "Set"

   'Friend Function SetRefMyStatusBarVM(MyStatusBarVM As MyStatusBarVM) As Boolean
   '   LibMap.SetRefStatusBarVM(MyStatusBarVM)
   '   Return Not IsNothing(LibMap.refStatusBarVM)
   'End Function

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

   'Friend Function SetRefProdManagerVM(ProdManagerVM As ProdManagerVM) As Boolean
   '   m_refProdManagerVM = ProdManagerVM
   '   Return Not IsNothing(m_refProdManagerVM)
   'End Function

   'Friend Function SetRefProjectVM(ProjectVM As ProjectVM) As Boolean
   '   m_refProjectVM = ProjectVM
   '   Return Not IsNothing(m_refProjectVM)
   'End Function

   'Friend Function SetRefMainMenuVM(MainMenuVM As MainMenuVM) As Boolean
   '   m_refMainMenuVM = MainMenuVM
   '   Return Not IsNothing(m_refMainMenuVM)
   'End Function

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

   'Friend Function SetRefShowPanelVM(ShowPanelVM As ShowPanelVM) As Boolean
   '   LibMap.SetRefShowPanelVM(ShowPanelVM)
   '   Return Not IsNothing(LibMap.refShowPanelVM)
   'End Function

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

   'Friend Function SetRefLeftPanelVM(LeftPanelVM As LeftPanelVM) As Boolean
   '   m_refLeftPanelVM = LeftPanelVM
   '   Return Not IsNothing(m_refLeftPanelVM)
   'End Function

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

   'Friend Function SetRefBottomPanelVM(BottomPanelVM As BottomPanelVM) As Boolean
   '   m_refBottomPanelVM = BottomPanelVM
   '   Return Not IsNothing(m_refBottomPanelVM)
   'End Function

   'Friend Function SetRefShowBeamPanelVM(ShowBeamPanelVM As ShowBeamPanelVM) As Boolean
   '   m_refShowBeamPanelVM = ShowBeamPanelVM
   '   Return Not IsNothing(m_refShowBeamPanelVM)
   'End Function

   'Friend Function SetRefConfigurationPageVM(ConfigurationPageVM As ConfigurationPageVM) As Boolean
   '   m_refConfigurationPageVM = ConfigurationPageVM
   '   Return Not IsNothing(m_refConfigurationPageVM)
   'End Function

   'Friend Function SetRefRawPartListVM(RawPartListVM As RawPartListVM) As Boolean
   '   m_refRawPartListVM = RawPartListVM
   '   Return Not IsNothing(m_refRawPartListVM)
   'End Function

   'Friend Function SetRefPartInRawPartListVM(PartInRawPartListVM As PartInRawPartListVM) As Boolean
   '   m_refPartInRawPartListVM = PartInRawPartListVM
   '   Return Not IsNothing(m_refPartInRawPartListVM)
   'End Function

   'Friend Function SetRefWarehouseWndVM(WarehouseWndVM As WarehouseWndVM) As Boolean
   '   m_refWarehouseWndVM = WarehouseWndVM
   '   Return Not IsNothing(m_refWarehouseWndVM)
   'End Function

   'Friend Function SetRefFeatureListVM(FeatureListVM As FeatureListVM) As Boolean
   '   m_refFeatureListVM = FeatureListVM
   '   Return Not IsNothing(m_refFeatureListVM)
   'End Function

   'Friend Function SetRefFreeContourManagerVM(FreeContourManagerVM As FreeContourManagerVM) As Boolean
   '   m_refFreeContourManagerVM = FreeContourManagerVM
   '   Return Not IsNothing(m_refFreeContourManagerVM)
   'End Function

   'Friend Function SetRefFreeContourInputVM(FreeContourInputVM As FreeContourInputVM) As Boolean
   '   m_refFreeContourInputVM = FreeContourInputVM
   '   Return Not IsNothing(m_refFreeContourInputVM)
   'End Function

   'Friend Function SetRefPartManagerVM(PartManagerVM As PartManagerVM) As Boolean
   '   m_refPartManagerVM = PartManagerVM
   '   Return Not IsNothing(m_refPartManagerVM)
   'End Function

   'Friend Function SetRefInstrumentPanelVM(InstrumentPanelVM As InstrumentPanelVM) As Boolean
   '   m_refInstrumentPanelVM = InstrumentPanelVM
   '   Return Not IsNothing(m_refInstrumentPanelVM)
   'End Function

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

   'Friend Function SetRefOptimizePanelVM(OptimizePanelVM As OptimizePanelVM) As Boolean
   '   m_refOptimizePanelVM = OptimizePanelVM
   '   Return Not IsNothing(m_refOptimizePanelVM)
   'End Function

   'Friend Function SetRefOpenProjectFileDialogVM(OpenProjectFileDialogVM As OpenProjectFileDialogVM) As Boolean
   '   m_refOpenProjectFileDialogVM = OpenProjectFileDialogVM
   '   Return Not IsNothing(m_refOpenProjectFileDialogVM)
   '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
      'Return Not IsNothing(m_refMainWindowVM) AndAlso Not IsNothing(m_refMainMenuVM) AndAlso
      '       Not IsNothing(LibMap.refStatusBarVM) AndAlso Not IsNothing(m_refProjManagerVM) AndAlso
      '       Not IsNothing(m_refProdManagerVM) AndAlso Not IsNothing(m_refConfigurationPageVM) AndAlso
      '       Not IsNothing(LibMap.refSceneHostVM) AndAlso Not IsNothing(LibMap.refShowPanelVM) AndAlso
      '       Not IsNothing(m_refMachinePanelVM) AndAlso Not IsNothing(LibMap.refMachGroupPanelVM) AndAlso
      '       Not IsNothing(m_refRawPartListVM) AndAlso Not IsNothing(m_refWarehouseWndVM) AndAlso
      '       Not IsNothing(m_refFeatureListVM) AndAlso Not IsNothing(m_refPartInRawPartListVM) AndAlso
      '       Not IsNothing(m_refFreeContourManagerVM) AndAlso Not IsNothing(m_refFreeContourInputVM) AndAlso
      '       Not IsNothing(m_refInstrumentPanelVM) AndAlso Not IsNothing(m_refTopPanelVM) AndAlso
      '       Not IsNothing(m_refPartManagerVM) AndAlso Not IsNothing(m_refOptimizePanelVM) AndAlso
      '       Not IsNothing(m_refShowBeamPanelVM) AndAlso Not IsNothing(m_refOpenProjectFileDialogVM) AndAlso
      '       LibMap.EndInit()
      Return Not IsNothing(m_refMachinePanelVM) AndAlso Not IsNothing(LibMap.refMachGroupPanelVM)
   End Function

#End Region    ' Init

End Module