Imports EgtWPFLib5

Module Map

   Private m_refMainWindowVM As MainWindowVM
   Private m_refProbingPanelVM As ProbingPanelVM

#Region "Get"

   Public ReadOnly Property refMainWindowVM As MainWindowVM
      Get
         Return m_refMainWindowVM
      End Get
   End Property

   Public ReadOnly Property refStatusBarVM As StatusBarVM
      Get
         Return LibMap.refStatusBarVM
      End Get
   End Property

   Public ReadOnly Property refProbingPanelVM As ProbingPanelVM
      Get
         Return m_refProbingPanelVM
      End Get
   End Property

#End Region    ' Get

#Region "Set"

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

   Friend Function SetRefProbingPanelVM(ProbingPanelVM As ProbingPanelVM) As Boolean
      m_refProbingPanelVM = ProbingPanelVM
      Return Not IsNothing(m_refProbingPanelVM)
   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_refProbingPanelVM) AndAlso LibMap.EndInit()
   End Function

#End Region    ' Init

End Module