Imports EgtWPFLib5

Public Module PhotoMap

   Private m_refSearchPanelVM As SearchPanelSlabVM
   Private m_refProjectVM As ProjectSlabVM
   Private m_refOptionPanelVM As OptionPanelSlabVM
   Private m_refListPageVM As ListPageSlabVM
   Private m_refDetailPageVM As DetailPageSlabVM

   Friend m_ContinueApplication As Boolean = False
   Public ReadOnly Property ContinueApplication As Boolean
      Get
         Return m_ContinueApplication
      End Get
   End Property

#Region "Get"
   Public ReadOnly Property refSearchPanelVM As SearchPanelSlabVM
      Get
         Return m_refSearchPanelVM
      End Get
   End Property

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

   Public ReadOnly Property refProjectVM As ProjectSlabVM
      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 refOptionPanelVM As OptionPanelSlabVM
      Get
         Return m_refOptionPanelVM
      End Get
   End Property

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

   Public ReadOnly Property refDetailPageVM As DetailPageSlabVM
      Get
         Return m_refDetailPageVM
      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 SetRefProjectVM(ProjectVM As ProjectSlabVM) 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 SetRefOptionPanelVM(OptionPanelVM As OptionPanelSlabVM) As Boolean
      m_refOptionPanelVM = OptionPanelVM
      Return Not IsNothing(m_refOptionPanelVM)
   End Function

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

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

   Friend Function SetRefSearchPanelVM(SearchPanelVM As SearchPanelSlabVM) As Boolean
      m_refSearchPanelVM = SearchPanelVM
      Return Not IsNothing(m_refSearchPanelVM)
   End Function

#End Region    ' Set

#Region "Init"

   Friend Function EndInit() As Boolean
      ' Verifico se tutti i pezzi necessari sono stati caricati
      Return Not IsNothing(m_refProjectVM) AndAlso
             Not IsNothing(LibMap.refSceneHostVM) AndAlso Not IsNothing(LibMap.refStatusBarVM) 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