EgtCAM5/Utility/Map.vb

Imports EgtWPFLib5

Module Map

#Region "Program ViewModel Map"

   Private m_refMainWindowVM As MainWindowVM
   'Private m_refStatusBarVM As StatusBarVM
   Private m_refTopCommandBarVM As TopCommandBarVM
   Private m_refProjectVM As ProjectVM
   Private m_refFixtureParametersVM As FixtureParametersVM
   Private m_refSimulationExpanderVM As SimulationExpanderVM
   Private m_refMachinePanelVM As MyMachinePanelVM
   Private m_refOptionPanelVM As OptionPanelVM
   Private m_refDrawOptionPanelVM As DrawOptionPanelVM
   Private m_refMachiningOptionPanelVM As MachiningOptionPanelVM
   Private m_refEstimationsExpanderVM As EstimationsExpanderVM
   Private m_refOperationsListExpanderVM As OperationsListExpanderVM
   Private m_refOperationParametersExpanderVM As OperationParametersExpanderVM
   Private m_refMachiningTreeExpanderVM As MachiningTreeExpanderVM
   'Private m_refMachGroupPanelVM As MachGroupPanelVM
   Private m_refInstrumentPanelVM As InstrumentPanelVM

#Region "Get"

   Public ReadOnly Property refMainWindowVM As MainWindowVM
      Get
         Return m_refMainWindowVM
      End Get
   End Property
   Public ReadOnly Property refStatusBarVM As MyStatusBarVM
      Get
         Return DirectCast( LibMap.refStatusBarVM, MyStatusBarVM)
      End Get
   End Property
   Public ReadOnly Property refTopCommandBarVM As TopCommandBarVM
      Get
         Return m_refTopCommandBarVM
      End Get
   End Property
   Public ReadOnly Property refProjectVM As ProjectVM
      Get
         Return m_refProjectVM
      End Get
   End Property
   Public ReadOnly Property refFixtureParametersVM As FixtureParametersVM
      Get
         Return m_refFixtureParametersVM
      End Get
   End Property
   Public ReadOnly Property refSimulationExpanderVM As SimulationExpanderVM
      Get
         Return m_refSimulationExpanderVM
      End Get
   End Property
   Public ReadOnly Property refMachinePanelVM As MyMachinePanelVM
      Get
         Return m_refMachinePanelVM
      End Get
   End Property
   Public ReadOnly Property refOptionPanelVM As OptionPanelVM
      Get
         Return m_refOptionPanelVM
      End Get
   End Property
   Public ReadOnly Property refDrawOptionPanelVM As DrawOptionPanelVM
      Get
         Return m_refDrawOptionPanelVM
      End Get
   End Property
   Public ReadOnly Property refMachiningOptionPanelVM As MachiningOptionPanelVM
      Get
         Return m_refMachiningOptionPanelVM
      End Get
   End Property
   Public ReadOnly Property refEstimationsExpanderVM As EstimationsExpanderVM
      Get
         Return m_refEstimationsExpanderVM
      End Get
   End Property
   Public ReadOnly Property refOperationsListExpanderVM As OperationsListExpanderVM
      Get
         Return m_refOperationsListExpanderVM
      End Get
   End Property
   Public ReadOnly Property refOperationParametersExpanderVM As OperationParametersExpanderVM
      Get
         Return m_refOperationParametersExpanderVM
      End Get
   End Property
   Public ReadOnly Property refMachiningTreeExpanderVM As MachiningTreeExpanderVM
      Get
         Return m_refMachiningTreeExpanderVM
      End Get
   End Property
   Public ReadOnly Property refMachGroupPanelVM As MyMachGroupPanelVM
      Get
         Return DirectCast( LibMap.refMachGroupPanelVM, MyMachGroupPanelVM)
      End Get
   End Property
   Public ReadOnly Property refInstrumentPanelVM As InstrumentPanelVM
      Get
         Return m_refInstrumentPanelVM
      End Get
   End Property

#End Region    ' Get

#Region "Set"

   Friend Function SetRefStatusBarVM(StatusBarVM As MyStatusBarVM) As Boolean
      LibMap.SetRefStatusBarVM(StatusBarVM)
      Return Not IsNothing(LibMap.refStatusBarVM)
   End Function
   Friend Function SetRefTopCommandBarVM(TopCommandBarVM As TopCommandBarVM) As Boolean
      m_refTopCommandBarVM = TopCommandBarVM
      Return Not IsNothing(m_refTopCommandBarVM)
   End Function
   Friend Function SetRefProjectVM(ProjectVM As ProjectVM) As Boolean
      m_refProjectVM = ProjectVM
      Return Not IsNothing(m_refProjectVM)
   End Function
   Friend Function SetRefFixtureParametersVM(FixtureParametersVM As FixtureParametersVM) As Boolean
      m_refFixtureParametersVM = FixtureParametersVM
      Return Not IsNothing(m_refFixtureParametersVM)
   End Function
   Friend Function SetRefSimulationExpanderVM(SimulationExpanderVM As SimulationExpanderVM) As Boolean
      m_refSimulationExpanderVM = SimulationExpanderVM
      Return Not IsNothing(m_refSimulationExpanderVM)
   End Function
   Friend Function SetRefMachinePanelVM(MachinePanelVM As MyMachinePanelVM) As Boolean
      m_refMachinePanelVM = MachinePanelVM
      Return Not IsNothing(m_refMachinePanelVM)
   End Function
   Friend Function SetRefOptionPanelVM(OptionPanelVM As OptionPanelVM) As Boolean
      m_refOptionPanelVM = OptionPanelVM
      Return Not IsNothing(m_refOptionPanelVM)
   End Function
   Friend Function SetRefDrawOptionPanelVM(DrawOptionPanelVM As DrawOptionPanelVM) As Boolean
      m_refDrawOptionPanelVM = DrawOptionPanelVM
      Return Not IsNothing(m_refDrawOptionPanelVM)
   End Function
   Friend Function SetRefMachiningOptionPanelVM(MachiningOptionPanelVM As MachiningOptionPanelVM) As Boolean
      m_refMachiningOptionPanelVM = MachiningOptionPanelVM
      Return Not IsNothing(m_refMachiningOptionPanelVM)
   End Function
   Friend Function SetRefEstimationsExpanderVM(EstimationsExpanderVM As EstimationsExpanderVM) As Boolean
      m_refEstimationsExpanderVM = EstimationsExpanderVM
      Return Not IsNothing(m_refEstimationsExpanderVM)
   End Function
   Friend Function SetRefOperationsListExpanderVM(OperationsListExpanderVM As OperationsListExpanderVM) As Boolean
      m_refOperationsListExpanderVM = OperationsListExpanderVM
      Return Not IsNothing(m_refOperationsListExpanderVM)
   End Function
   Friend Function SetRefOperationParametersExpanderVM(OperationParametersExpanderVM As OperationParametersExpanderVM) As Boolean
      m_refOperationParametersExpanderVM = OperationParametersExpanderVM
      Return Not IsNothing(m_refOperationParametersExpanderVM)
   End Function
   Friend Function SetRefMachiningTreeExpanderVM(MachiningTreeExpanderVM As MachiningTreeExpanderVM) As Boolean
      m_refMachiningTreeExpanderVM = MachiningTreeExpanderVM
      Return Not IsNothing(m_refMachiningTreeExpanderVM)
   End Function
   Friend Function SetRefMachGroupPanelVM(MachGroupPanelVM As MyMachGroupPanelVM) As Boolean
      LibMap.SetRefMachGroupPanelVM(MachGroupPanelVM)
      Return Not IsNothing(LibMap.refMachGroupPanelVM)
   End Function
   Friend Function SetRefInstrumentPanelVM(InstrumentPanelVM As InstrumentPanelVM) As Boolean
      m_refInstrumentPanelVM = InstrumentPanelVM
      Return Not IsNothing(m_refInstrumentPanelVM)
   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_refProjectVM) AndAlso Not IsNothing(m_refTopCommandBarVM) AndAlso
             Not IsNothing(m_refFixtureParametersVM) AndAlso Not IsNothing(m_refSimulationExpanderVM) AndAlso Not IsNothing(m_refMachinePanelVM) AndAlso
             Not IsNothing(m_refOptionPanelVM) AndAlso Not IsNothing(m_refDrawOptionPanelVM) AndAlso Not IsNothing(m_refMachiningOptionPanelVM) AndAlso
             Not IsNothing(m_refEstimationsExpanderVM) AndAlso Not IsNothing(m_refOperationsListExpanderVM) AndAlso
             Not IsNothing(m_refOperationParametersExpanderVM) AndAlso Not IsNothing(m_refMachiningTreeExpanderVM) AndAlso
             Not IsNothing(LibMap.refMachGroupPanelVM) AndAlso Not IsNothing(m_refInstrumentPanelVM)
   End Function

#End Region    ' Init

#End Region    ' Program ViewModel Map

End Module