effector.plugin.fivelakes/Supervisor.Plugin.FiveLakes/Utility/Map.vb

Imports Supervisor.Plugin.Interface

Module Map

   Private m_refFiveLakesUIVM As FiveLakesUIVM
   Private m_refDoorListPageVM As DoorListPageVM
   Private m_refSupervisorFunction As IHost

   'Private m_refMyStatusBarVM As MyStatusBarVM
   'Private m_refProjManagerVM As ProjManagerVM
   'Private m_refProjectVM As ProjectVM
   'Private m_refSecondaryWindowVM As SecondaryWindowVM
   'Private m_refSecondaryWindowV As SecondaryWindowV
   'Private m_refMachinePanelVM As MachinePanelVM
   'Private m_refLeftPanelVM As LeftPanelVM
   'Private m_refRightPanelVM As RightPanelVM
   'Private m_refDispositionPanelVM As DispositionPanelVM
   'Private m_refStartMachPanelVM As StartMachPanelVM
   'Private m_refRibPanelVM As RibPanelVM
   'Private m_refControllerInputPanelVM As ControllerInputPanelVM
   'Private m_refInstrumentPanelVM As InstrumentPanelVM
   'Private m_refTopPanelVM As TopPanelVM
   'Private m_refSliceManagerVM As SliceManagerVM
   'Private m_refTFSEditorVM As TFSEditorVM
   'Private m_refCurrMachiningPanelVM As CurrMachiningPanelVM
   'Private m_refMachiningDbVM As MachiningDbVM
   'Private m_refMaterialDbVM As MaterialDbVM
   'Private m_refSliderManagerVM As SliderManagerVM
   'Private m_refRibParamPanelVM As RibParamPanelVM
   'Private m_refSimulationPanelVM As SimulationPanelVM
   'Private m_refReferencePanelVM As ReferencePanelVM
   'Private m_refViewLayerManagerVM As ViewLayerManagerVM
   'Private m_refShellNumberPanelVM As ShellNumberPanelVM
   'Private m_refShellNumberParamPanelVM As ShellNumberParamPanelVM
   'Private m_refFilledSolidPanelVM As FilledSolidPanelVM
   'Private m_refFilledSolidParamPanelVM As FilledSolidParamPanelVM
   'Private m_refSplashScreen As SplashScreen
   'Private m_refManagePartPanelVM As ManagePartPanelVM
   'Private m_refMachineViewPanelVM As MachineViewPanelVM
   'Private m_refImportLoadingWndVM As ImportLoadingWndVM

#Region "Get"

   Public ReadOnly Property refFiveLakesUIVM As FiveLakesUIVM
      Get
         Return m_refFiveLakesUIVM
      End Get
   End Property

   Public ReadOnly Property refDoorListPageVM As DoorListPageVM
      Get
         Return m_refDoorListPageVM
      End Get
   End Property

   Public ReadOnly Property refSupervisorFunction As IHost
      Get
         Return m_refSupervisorFunction
      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 refProjectVM As ProjectVM
   '   Get
   '      Return m_refProjectVM
   '   End Get
   'End Property

   'Public ReadOnly Property refSceneHostVM As MySceneHostVM
   '   Get
   '      Return LibMap.refSceneHostVM
   '   End Get
   'End Property

   'Public ReadOnly Property refSecondaryWindowVM As SecondaryWindowVM
   '   Get
   '      Return m_refSecondaryWindowVM
   '   End Get
   'End Property
   'Public ReadOnly Property refSecondaryWindowV As SecondaryWindowV
   '   Get
   '      Return m_refSecondaryWindowV
   '   End Get
   'End Property

   'Public ReadOnly Property refShowPanelVM As ShowPanelVM
   '   Get
   '      Return LibMap.refShowPanelVM
   '   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 refRightPanelVM As RightPanelVM
   '   Get
   '      Return m_refRightPanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refDispositionPanelVM As DispositionPanelVM
   '   Get
   '      Return m_refDispositionPanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refStartMachPanelVM As StartMachPanelVM
   '   Get
   '      Return m_refStartMachPanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refRibPanelVM As RibPanelVM
   '   Get
   '      Return m_refRibPanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refControllerInputPanelVM As ControllerInputPanelVM
   '   Get
   '      Return m_refControllerInputPanelVM
   '   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 refSliceManagerVM As SliceManagerVM
   '   Get
   '      Return m_refSliceManagerVM
   '   End Get
   'End Property

   'Public ReadOnly Property refTFSEditorVM As TFSEditorVM
   '   Get
   '      Return m_refTFSEditorVM
   '   End Get
   'End Property

   'Public ReadOnly Property refCurrMachiningPanelVM As CurrMachiningPanelVM
   '   Get
   '      Return m_refCurrMachiningPanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refMachiningDbVM As MachiningDbVM
   '   Get
   '      Return m_refMachiningDbVM
   '   End Get
   'End Property

   'Public ReadOnly Property refMaterialDbVM As MaterialDbVM
   '   Get
   '      Return m_refMaterialDbVM
   '   End Get
   'End Property

   'Public ReadOnly Property refSliderManagerVM As SliderManagerVM
   '   Get
   '      Return m_refSliderManagerVM
   '   End Get
   'End Property

   'Public ReadOnly Property refRibParamPanelVM As RibParamPanelVM
   '   Get
   '      Return m_refRibParamPanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refSimulationPanelVM As SimulationPanelVM
   '   Get
   '      Return m_refSimulationPanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refReferencePanelVM As ReferencePanelVM
   '   Get
   '      Return m_refReferencePanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refViewLayerManagerVM As ViewLayerManagerVM
   '   Get
   '      Return m_refViewLayerManagerVM
   '   End Get
   'End Property

   'Public ReadOnly Property refShellNumberPanelVM As ShellNumberPanelVM
   '   Get
   '      Return m_refShellNumberPanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refShellNumberParamPanelVM As ShellNumberParamPanelVM
   '   Get
   '      Return m_refShellNumberParamPanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refFilledSolidPanelVM As FilledSolidPanelVM
   '   Get
   '      Return m_refFilledSolidPanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refFilledSolidParamPanelVM As FilledSolidParamPanelVM
   '   Get
   '      Return m_refFilledSolidParamPanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refSplashScreen As SplashScreen
   '   Get
   '      Return m_refSplashScreen
   '   End Get
   'End Property

   'Public ReadOnly Property refManagePartPanelVM As ManagePartPanelVM
   '   Get
   '      Return m_refManagePartPanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refMachineViewPanelVM As MachineViewPanelVM
   '   Get
   '      Return m_refMachineViewPanelVM
   '   End Get
   'End Property

   'Public ReadOnly Property refImportLoadingWndVM As ImportLoadingWndVM
   '   Get
   '      Return m_refImportLoadingWndVM
   '   End Get
   'End Property

#End Region    ' Get

#Region "Set"

   Friend Function SetRefSupervisorFunction(IHost As IHost) As Boolean
      m_refSupervisorFunction = IHost
      Return Not IsNothing(m_refSupervisorFunction)
   End Function

   Friend Function SetRefDoorListPageVM(DoorListPageVM As DoorListPageVM) As Boolean
      m_refDoorListPageVM = DoorListPageVM
      Return Not IsNothing(m_refDoorListPageVM)
   End Function

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

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

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

   '   Friend Function SetRefSecondaryWindowVM(SecondaryWindowVM As SecondaryWindowVM) As Boolean
   '      m_refSecondaryWindowVM = SecondaryWindowVM
   '      Return Not IsNothing(m_refSecondaryWindowVM)
   '   End Function
   '   Friend Function SetRefSecondaryWindowV(SecondaryWindowV As SecondaryWindowV) As Boolean
   '      m_refSecondaryWindowV = SecondaryWindowV
   '      Return Not IsNothing(m_refSecondaryWindowV)
   '   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 SetRefRightPanelVM(RightPanelVM As RightPanelVM) As Boolean
   '      m_refRightPanelVM = RightPanelVM
   '      Return Not IsNothing(m_refRightPanelVM)
   '   End Function

   '   Friend Function SetRefDispositionPanelVM(DispositionPanelVM As DispositionPanelVM) As Boolean
   '      m_refDispositionPanelVM = DispositionPanelVM
   '      Return Not IsNothing(m_refDispositionPanelVM)
   '   End Function

   '   Friend Function SetRefStartMachPanelVM(StartMachPanelVM As StartMachPanelVM) As Boolean
   '      m_refStartMachPanelVM = StartMachPanelVM
   '      Return Not IsNothing(m_refStartMachPanelVM)
   '   End Function

   '   Friend Function SetRefRibPanelVM(RibPanelVM As RibPanelVM) As Boolean
   '      m_refRibPanelVM = RibPanelVM
   '      Return Not IsNothing(m_refRibPanelVM)
   '   End Function

   '   Friend Function SetRefControllerInputPanelVM(ControllerInputPanelVM As ControllerInputPanelVM) As Boolean
   '      m_refControllerInputPanelVM = ControllerInputPanelVM
   '      Return Not IsNothing(m_refControllerInputPanelVM)
   '   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 SetRefSliceManagerVM(SliceManagerVM As SliceManagerVM) As Boolean
   '      m_refSliceManagerVM = SliceManagerVM
   '      Return Not IsNothing(m_refSliceManagerVM)
   '   End Function

   '   Friend Function SetRefTFSEditorVM(TFSEditorVM As TFSEditorVM) As Boolean
   '      m_refTFSEditorVM = TFSEditorVM
   '      Return Not IsNothing(m_refTFSEditorVM)
   '   End Function

   '   Friend Function SetRefCurrMachiningPanelVM(CurrMachiningPanelVM As CurrMachiningPanelVM) As Boolean
   '      m_refCurrMachiningPanelVM = CurrMachiningPanelVM
   '      Return Not IsNothing(m_refCurrMachiningPanelVM)
   '   End Function

   '   Friend Function SetRefMachiningDbVM(MachiningDbVM As MachiningDbVM) As Boolean
   '      m_refMachiningDbVM = MachiningDbVM
   '      Return Not IsNothing(m_refMachiningDbVM)
   '   End Function

   '   Friend Function SetRefMaterialDbVM(MaterialDbVM As MaterialDbVM) As Boolean
   '      m_refMaterialDbVM = MaterialDbVM
   '      Return Not IsNothing(m_refMaterialDbVM)
   '   End Function

   '   Friend Function SetRefSliderManagerVM(SliderManagerVM As SliderManagerVM) As Boolean
   '      m_refSliderManagerVM = SliderManagerVM
   '      Return Not IsNothing(m_refSliderManagerVM)
   '   End Function

   '   Friend Function SetRefRibParamPanelVM(RibParamPanelVM As RibParamPanelVM) As Boolean
   '      m_refRibParamPanelVM = RibParamPanelVM
   '      Return Not IsNothing(m_refRibParamPanelVM)
   '   End Function

   '   Friend Function SetRefSimulationPanelVM(SimulationPanelVM As SimulationPanelVM) As Boolean
   '      m_refSimulationPanelVM = SimulationPanelVM
   '      Return Not IsNothing(m_refSimulationPanelVM)
   '   End Function

   '   Friend Function SetRefReferencePanelVM(ReferencePanelVM As ReferencePanelVM) As Boolean
   '      m_refReferencePanelVM = ReferencePanelVM
   '      Return Not IsNothing(m_refReferencePanelVM)
   '   End Function

   '   Friend Function SetRefViewLayerManagerVM(ViewLayerManagerVM As ViewLayerManagerVM) As Boolean
   '      m_refViewLayerManagerVM = ViewLayerManagerVM
   '      Return Not IsNothing(m_refViewLayerManagerVM)
   '   End Function

   '   Friend Function SetRefShellNumberPanelVM(ShellNumberPanelVM As ShellNumberPanelVM) As Boolean
   '      m_refShellNumberPanelVM = ShellNumberPanelVM
   '      Return Not IsNothing(m_refShellNumberPanelVM)
   '   End Function

   '   Friend Function SetRefShellNumberParamPanelVM(ShellNumberParamPanelVM As ShellNumberParamPanelVM) As Boolean
   '      m_refShellNumberParamPanelVM = ShellNumberParamPanelVM
   '      Return Not IsNothing(m_refShellNumberParamPanelVM)
   '   End Function

   '   Friend Function SetRefFilledSolidPanelVM(FilledSolidPanelVM As FilledSolidPanelVM) As Boolean
   '      m_refFilledSolidPanelVM = FilledSolidPanelVM
   '      Return Not IsNothing(m_refFilledSolidPanelVM)
   '   End Function

   '   Friend Function SetRefFilledSolidParamPanelVM(FilledSolidParamPanelVM As FilledSolidParamPanelVM) As Boolean
   '      m_refFilledSolidParamPanelVM = FilledSolidParamPanelVM
   '      Return Not IsNothing(m_refFilledSolidParamPanelVM)
   '   End Function

   '   Friend Function SetRefSplashScreen(SplashScreen As SplashScreen) As Boolean
   '      m_refSplashScreen = SplashScreen
   '      Return Not IsNothing(m_refSplashScreen)
   '   End Function

   '   Friend Function SetRefManagePartPanelVM(ManagePartPanelVM As ManagePartPanelVM) As Boolean
   '      m_refManagePartPanelVM = ManagePartPanelVM
   '      Return Not IsNothing(m_refManagePartPanelVM)
   '   End Function

   '   Friend Function SetRefMachineViewPanelVM(MachineViewPanelVM As MachineViewPanelVM) As Boolean
   '      m_refMachineViewPanelVM = MachineViewPanelVM
   '      Return Not IsNothing(m_refMachineViewPanelVM)
   '   End Function

   '   Friend Function SetRefImportLoadingWndVM(ImportLoadingWndVM As ImportLoadingWndVM) As Boolean
   '      m_refImportLoadingWndVM = ImportLoadingWndVM
   '      Return Not IsNothing(m_refImportLoadingWndVM)
   '   End Function

#End Region    ' Set

#Region "Init"

   Friend Function BeginInit(FiveLakesUIVM As FiveLakesUIVM) As Boolean
      m_refFiveLakesUIVM = FiveLakesUIVM
      Return Not IsNothing(m_refFiveLakesUIVM)
   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_refProjectVM) AndAlso
      '       Not IsNothing(LibMap.refStatusBarVM) AndAlso Not IsNothing(m_refProjectManagerVM) AndAlso
      '       Not IsNothing(LibMap.refSceneHostVM) AndAlso Not IsNothing(LibMap.refShowPanelVM) 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) AndAlso
      '       LibMap.EndInit()
      Return Not IsNothing(m_refFiveLakesUIVM)
   End Function

#End Region    ' Init

End Module