EgtWPFLib5/Utility/LibMap.vb

Imports EgtWPFLib5

Public Module LibMap

   'Private m_refMainWindowVM As MainWindowVM
   Private m_refStatusBarVM As StatusBarVM
   'Private m_refTopCommandBarVM As TopCommandBarVM
   'Private m_refProjectVM As ProjectVM
   Private WithEvents m_refSceneHostVM As SceneHostVM
   Private m_refShowPanelVM As ShowPanelVM
   Private m_refMachinePanelVM As MachinePanelVM
   Private m_refMachGroupPanelVM As MachGroupPanelVM
   'Private m_refOptionPanelVM As OptionPanelVM
   'Private m_refRawPartTabVM As RawPartTabVM
   'Private m_refNestingTabVM As NestingTabVM
   'Private m_refMachiningTabVM As MachiningTabVM
   'Private m_refSplitModeVM As SplitModeVM
   'Private m_refMoveRawModeVM As MoveRawModeVM
   'Private m_refSimulTabVM As SimulTabVM
   Private m_refWaterjetDbWindowVM As WaterjetDbWindowVM

#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 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 refVeinMatchPanelVM As VeinMatchPanelVM
   '   Get
   '      Return m_refVeinMatchPanelVM
   '   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 refOptionPanelVM As OptionPanelVM
   '   Get
   '      Return m_refOptionPanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refRawPartTabVM As RawPartTabVM
   '   Get
   '      Return m_refRawPartTabVM
   '   End Get
   'End Property

   'Public ReadOnly Property refNestingTabVM As NestingTabVM
   '   Get
   '      Return m_refNestingTabVM
   '   End Get
   'End Property

   'Public ReadOnly Property refMachiningTabVM As MachiningTabVM
   '   Get
   '      Return m_refMachiningTabVM
   '   End Get
   'End Property

   'Public ReadOnly Property refSplitModeVM As SplitModeVM
   '   Get
   '      Return m_refSplitModeVM
   '   End Get
   'End Property

   'Public ReadOnly Property refMoveRawModeVM As MoveRawModeVM
   '   Get
   '      Return m_refMoveRawModeVM
   '   End Get
   'End Property

   'Public ReadOnly Property refSimulTabVM As SimulTabVM
   '   Get
   '      Return m_refSimulTabVM
   '   End Get
   'End Property

   Public ReadOnly Property refWaterjetDbWindowVM As WaterjetDbWindowVM
      Get
         Return m_refWaterjetDbWindowVM
      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

   '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

   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 SetRefVeinMatchPanelVM(VeinMatchPanelVM As VeinMatchPanelVM) As Boolean
   '   m_refVeinMatchPanelVM = VeinMatchPanelVM
   '   Return Not IsNothing(m_refVeinMatchPanelVM)
   '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

   'Friend Function SetRefOptionPanelVM(OptionPanelVM As OptionPanelVM) As Boolean
   '   m_refOptionPanelVM = OptionPanelVM
   '   Return Not IsNothing(m_refOptionPanelVM)
   'End Function

   'Friend Function SetRefRawPartTabVM(RawPartTabVM As RawPartTabVM) As Boolean
   '   m_refRawPartTabVM = RawPartTabVM
   '   Return Not IsNothing(m_refRawPartTabVM)
   'End Function

   'Friend Function SetRefNestingTabVM(NestingTabVM As NestingTabVM) As Boolean
   '   m_refNestingTabVM = NestingTabVM
   '   Return Not IsNothing(m_refNestingTabVM)
   'End Function

   'Friend Function SetRefMachiningTabVM(MachiningTabVM As MachiningTabVM) As Boolean
   '   m_refMachiningTabVM = MachiningTabVM
   '   Return Not IsNothing(m_refMachiningTabVM)
   'End Function

   'Friend Function SetRefSplitModeVM(SplitModeVM As SplitModeVM) As Boolean
   '   m_refSplitModeVM = SplitModeVM
   '   Return Not IsNothing(m_refSplitModeVM)
   'End Function

   'Friend Function SetRefMoveRawModeVM(MoveRawModeVM As MoveRawModeVM) As Boolean
   '   m_refMoveRawModeVM = MoveRawModeVM
   '   Return Not IsNothing(m_refMoveRawModeVM)
   'End Function

   'Friend Function SetRefSimulTabVM(SimulTabVM As SimulTabVM) As Boolean
   '   m_refSimulTabVM = SimulTabVM
   '   Return Not IsNothing(m_refSimulTabVM)
   'End Function

   Public Function SetRefWaterjetDbWindowVM(WaterjetDbWindowVM As WaterjetDbWindowVM) As Boolean
      m_refWaterjetDbWindowVM = WaterjetDbWindowVM
      Return Not IsNothing(m_refWaterjetDbWindowVM)
   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

   Public Function EndInit() As Boolean
      ' Verifico se tutti i pezzi necessari sono stati caricati
      Return Not IsNothing(m_refSceneHostVM)
      'AndAlso Not IsNothing(m_refShowPanelVM) AndAlso
      'Not IsNothing(m_refMachGroupPanelVM) AndAlso Not IsNothing(m_refMachinePanelVM)

      'Not IsNothing(m_refMainWindowVM) AndAlso Not IsNothing(m_refProjectVM) AndAlso
      'Not IsNothing(m_refStatusBarVM) AndAlso Not IsNothing(m_refTopCommandBarVM) AndAlso
      'Not IsNothing(m_refVeinMatchPanelVM) AndAlso
      'Not IsNothing(m_refOptionPanelVM) AndAlso Not IsNothing(m_refRawPartTabVM) AndAlso
      'Not IsNothing(m_refNestingTabVM) AndAlso Not IsNothing(m_refSimulTabVM) AndAlso
      'Not IsNothing(m_refMachiningTabVM)
   End Function

#End Region    ' Init

End Module