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 MachinePanelVM
   Private m_refOperationExpanderVM As OperationExpanderVM

#Region "Get"

   Public ReadOnly Property refMainWindowVM As MainWindowVM
      Get
         Return m_refMainWindowVM
      End Get
   End Property
   Public ReadOnly Property refStatusBarVM As StatusBarVM
      Get
         Return m_refStatusBarVM
      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 MachinePanelVM
      Get
         Return m_refMachinePanelVM
      End Get
   End Property
   Public ReadOnly Property refOperationExpanderVM As OperationExpanderVM
      Get
         Return m_refOperationExpanderVM
      End Get
   End Property

#End Region    ' Get

#Region "Set"

   Friend Function SetRefStatusBarVM(StatusBarVM As StatusBarVM) As Boolean
      m_refStatusBarVM = StatusBarVM
      Return Not IsNothing(m_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 MachinePanelVM) As Boolean
      m_refMachinePanelVM = MachinePanelVM
      Return Not IsNothing(m_refMachinePanelVM)
   End Function
   Friend Function SetRefOperationExpanderVM(OperationExpanderVM As OperationExpanderVM) As Boolean
      m_refOperationExpanderVM = OperationExpanderVM
      Return Not IsNothing(m_refOperationExpanderVM)
   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(m_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_refOperationExpanderVM)
   End Function

#End Region    ' Init

#End Region    ' Program ViewModel Map

End Module