Imports EgtWPFLib5

Module Map

   Private m_refMainWindowVM As MainWindowVM
   Private m_refTopCommandBarVM As TopCommandBarVM
   Private m_refProjectVM As ProjectVM
   Private m_refOptionPanelVM As OptionPanelVM
   Private m_refListPageVM As ListPageVM
   Private m_refDetailPageVM As DetailPageVM
   Private m_refSearchPanelVM As SearchPanelVM

#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 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 LibMap.refSceneHostVM
      End Get
   End Property

   Public ReadOnly Property refShowPanelVM As ShowPanelVM
      Get
         Return LibMap.refShowPanelVM
      End Get
   End Property

   Public ReadOnly Property refOptionPanelVM As OptionPanelVM
      Get
         Return m_refOptionPanelVM
      End Get
   End Property

   Public ReadOnly Property refListPageVM As ListPageVM
      Get
         Return m_refListPageVM
      End Get
   End Property

   Public ReadOnly Property refDetailPageVM As DetailPageVM
      Get
         Return m_refDetailPageVM
      End Get
   End Property

   Public ReadOnly Property refSearchPanelVM As SearchPanelVM
      Get
         Return m_refSearchPanelVM
      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 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 SetRefSceneHostVM(SceneHostVM As SceneHostVM) As Boolean
      LibMap.SetRefSceneHostVM(SceneHostVM)
      Return Not IsNothing(LibMap.refSceneHostVM)
   End Function

   Friend Function SetRefShowPanelVM(ShowPanelVM As ShowPanelVM) As Boolean
      LibMap.SetRefShowPanelVM(ShowPanelVM)
      Return Not IsNothing(LibMap.refShowPanelVM)
   End Function

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

   Friend Function SetRefListPageVM(ListPageVM As ListPageVM) As Boolean
      m_refListPageVM = ListPageVM
      Return Not IsNothing(m_refListPageVM)
   End Function

   Friend Function SetRefDetailPageVM(DetailPageVM As DetailPageVM) As Boolean
      m_refDetailPageVM = DetailPageVM
      Return Not IsNothing(m_refDetailPageVM)
   End Function

   Friend Function SetRefSearchPanelVM(SearchPanelVM As SearchPanelVM) As Boolean
      m_refSearchPanelVM = SearchPanelVM
      Return Not IsNothing(m_refSearchPanelVM)
   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_refProjectVM) AndAlso
             Not IsNothing(LibMap.refStatusBarVM) AndAlso Not IsNothing(m_refTopCommandBarVM) AndAlso
             Not IsNothing(LibMap.refSceneHostVM) AndAlso Not IsNothing(LibMap.refShowPanelVM) AndAlso
             Not IsNothing(m_refOptionPanelVM) AndAlso Not IsNothing(m_refListPageVM) AndAlso
             Not IsNothing(m_refDetailPageVM) AndAlso Not IsNothing(m_refSearchPanelVM) AndAlso
             LibMap.EndInit
   End Function

#End Region    ' Init

End Module