Imports EgtWPFLib5

Module Map

   Private m_refMainWindowVM As MainWindowVM
   Private m_refUnloadingAreaVM As UnloadingAreaVM
   Private m_refSceneHostVM As SceneHostVM

#Region "Get"

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

   Public ReadOnly Property refUnloadingAreaVM As UnloadingAreaVM
      Get
         Return m_refUnloadingAreaVM
      End Get
   End Property

   Public ReadOnly Property refSceneHostVM As SceneHostVM
      Get
         ' bisogna usare la nuova funzione dell'EgtWPFLib5 che gestisce le liste di scene
         If IsNothing(m_refSceneHostVM) Then
            m_refSceneHostVM = LibMap.refSceneHostVM
         End If
         Return m_refSceneHostVM
      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 SetRefUnloadingAreaVM(UnloadingAreaVM As UnloadingAreaVM) As Boolean
      m_refUnloadingAreaVM = UnloadingAreaVM
      Return Not IsNothing(m_refUnloadingAreaVM)
   End Function

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

#End Region    ' Set

#Region "Init"

   Friend Function BeginInit(MainWindowVM As MainWindowVM) As Boolean
      m_refMainWindowVM = MainWindowVM
      ' quando avvio il programma creo la classe per la camera
      Return Not IsNothing(m_refMainWindowVM)
   End Function

   Friend Function EndInit() As Boolean
      ' ripulisco il file di log dei processi
      Try
         My.Computer.FileSystem.DeleteFile(Map.refMainWindowVM.MainWindowM.sTempDir & "\ProcessLog.txt")
      Catch ex As Exception
      End Try
      ' Verifico se tutti i pezzi necessari sono stati caricati
      Return Not IsNothing(m_refMainWindowVM) AndAlso Not IsNothing(m_refUnloadingAreaVM) AndAlso
             Not IsNothing(LibMap.refSceneHostVM) ' AndAlso LibMap.EndInit()
   End Function

#End Region    ' Init

End Module