egtbeamwall/EgtBEAMWALL.Supervisor/Utility/Map.vb

Imports EgtWPFLib5

Module Map

   Private m_refMainWindowVM As MainWindowVM
   Private m_refSupervisorManagerVM As SupervisorManagerVM
   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_refMachCommandMessagePanelVM As MachCommandMessagePanelVM
   Private m_refAxesPanelVM As AxesPanelVM
   Private m_refConfigurationPageVM As ConfigurationPageVM
   Private m_refRawPartListVM As RawPartListVM
   Private m_refMachManaging As MachManaging
   Private m_refCALCPanelVM As CALCPanelVM
   Private m_refSupervisorMachGroupPanelVM As SupervisorMachGroupPanelVM
   Private m_refPartInRawPartListVM As PartInRawPartListVM
   Private m_refFeatureInPartInRawPartListVM As FeatureInPartInRawPartListVM
   Private m_refMDIPageVM As MDIPageVM
   Private m_refMachineLogPageVM As MachineLogPageVM

#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 refSupervisorManagerVM As SupervisorManagerVM
      Get
         Return m_refSupervisorManagerVM
      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 refMachCommandMessagePanelVM As MachCommandMessagePanelVM
      Get
         Return m_refMachCommandMessagePanelVM
      End Get
   End Property

   Public ReadOnly Property refAxesPanelVM As AxesPanelVM
      Get
         Return m_refAxesPanelVM
      End Get
   End Property

   Public ReadOnly Property refCALCPanelVM As CALCPanelVM
      Get
         Return m_refCALCPanelVM
      End Get
   End Property

   Public ReadOnly Property refSupervisorMachGroupPanelVM As SupervisorMachGroupPanelVM
      Get
         Return m_refSupervisorMachGroupPanelVM
      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 refFeatureInPartInRawPartListVM As FeatureInPartInRawPartListVM
      Get
         Return m_refFeatureInPartInRawPartListVM
      End Get
   End Property

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

   Public ReadOnly Property refMachManaging As MachManaging
      Get
         Return m_refMachManaging
      End Get
   End Property

   Public ReadOnly Property refMDIPageVM As MDIPageVM
      Get
         Return m_refMDIPageVM
      End Get
   End Property

   Public ReadOnly Property refMachineLogPageVM As MachineLogPageVM
      Get
         Return m_refMachineLogPageVM
      End Get
   End Property

#End Region    ' Get

#Region "Set"

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

   Friend Function SetRefSupervisorManagerVM(SupervisorManagerVM As SupervisorManagerVM) As Boolean
      m_refSupervisorManagerVM = SupervisorManagerVM
      Return Not IsNothing(m_refSupervisorManagerVM)
   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

   Friend 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

   Friend 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

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

   Friend Function SetRefMachCommandMessagePanelVM(MachCommandMessagePanelVM As MachCommandMessagePanelVM) As Boolean
      m_refMachCommandMessagePanelVM = MachCommandMessagePanelVM
      Return Not IsNothing(m_refMachCommandMessagePanelVM)
   End Function

   Friend Function SetRefAxesPanelVM(AxesPanelVM As AxesPanelVM) As Boolean
      m_refAxesPanelVM = AxesPanelVM
      Return Not IsNothing(m_refAxesPanelVM)
   End Function

   Friend Function SetRefCALCPanelVM(CALCPanelVM As CALCPanelVM) As Boolean
      m_refCALCPanelVM = CALCPanelVM
      Return Not IsNothing(m_refCALCPanelVM)
   End Function

   Friend Function SetRefSupervisorMachGroupPanelVM(SupervisorMachGroupPanelVM As SupervisorMachGroupPanelVM) As Boolean
      m_refSupervisorMachGroupPanelVM = SupervisorMachGroupPanelVM
      Return Not IsNothing(m_refSupervisorMachGroupPanelVM)
   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 SetRefMachManaging(MachManaging As MachManaging) As Boolean
      m_refMachManaging = MachManaging
      Return Not IsNothing(m_refMachManaging)
   End Function

   Friend Function SetRefFeatureInPartInRawPartListVM(FeatureInPartInRawPartListVM As FeatureInPartInRawPartListVM) As Boolean
      m_refFeatureInPartInRawPartListVM = FeatureInPartInRawPartListVM
      Return Not IsNothing(m_refFeatureInPartInRawPartListVM)
   End Function

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

   Friend Function SetRefMDIPageVM(MDIPageVM As MDIPageVM) As Boolean
      m_refMDIPageVM = MDIPageVM
      Return Not IsNothing(m_refMDIPageVM)
   End Function

   Friend Function SetRefMachineLogPageVM(MachineLogPageVM As MachineLogPageVM) As Boolean
      m_refMachineLogPageVM = MachineLogPageVM
      Return Not IsNothing(m_refMachineLogPageVM)
   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
             Not IsNothing(m_refConfigurationPageVM) AndAlso Not IsNothing(m_refFeatureInPartInRawPartListVM) AndAlso
             Not IsNothing(m_refPartInRawPartListVM) AndAlso Not IsNothing(m_refAxesPanelVM) 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_refMDIPageVM) AndAlso
             Not IsNothing(m_refMachCommandMessagePanelVM) AndAlso Not IsNothing(m_refMachineLogPageVM) AndAlso LibMap.EndInit()
   End Function

#End Region    ' Init

End Module