Friend Module CompoWindowMap

   Private m_refCompoWindowVM As CompoWindowVM
   Private m_refCompoSceneHostV As CompoSceneHostV
   Private m_refCompoListPageVM As CompoListPageVM
   Private m_refCompoParamPageVM As CompoParamPageVM
   Private m_refCompoManagerVM As CompoManagerVM

#Region "Get"

   Public ReadOnly Property refCompoWindowVM As CompoWindowVM
      Get
         Return m_refCompoWindowVM
      End Get
   End Property

   Public ReadOnly Property refCompoSceneHostV As CompoSceneHostV
      Get
         Return m_refCompoSceneHostV
      End Get
   End Property

   Public ReadOnly Property refCompoListPageVM As CompoListPageVM
      Get
         Return m_refCompoListPageVM
      End Get
   End Property

   Public ReadOnly Property refCompoParamPageVM As CompoParamPageVM
      Get
         Return m_refCompoParamPageVM
      End Get
   End Property

   Public ReadOnly Property refCompoManagerVM As CompoManagerVM
      Get
         Return m_refCompoManagerVM
      End Get
   End Property

#End Region    ' Get

#Region "Set"

   Friend Function SetRefCompoSceneHostV(CompoSceneHostV As CompoSceneHostV) As Boolean
      m_refCompoSceneHostV = CompoSceneHostV
      Return Not IsNothing(m_refCompoSceneHostV)
   End Function

   Friend Function SetRefCompoListPageVM(CompoListPageVM As CompoListPageVM) As Boolean
      m_refCompoListPageVM = CompoListPageVM
      Return Not IsNothing(m_refCompoListPageVM)
   End Function

   Friend Function SetRefCompoParamPageVM(CompoParamPageVM As CompoParamPageVM) As Boolean
      m_refCompoParamPageVM = CompoParamPageVM
      Return Not IsNothing(m_refCompoParamPageVM)
   End Function

   Friend Function SetRefCompoManagerVM(CompoManagerVM As CompoManagerVM) As Boolean
      m_refCompoManagerVM = CompoManagerVM
      Return Not IsNothing(m_refCompoManagerVM)
   End Function

#End Region    ' Set

#Region "Init"

   Friend Function BeginInit(CompoWindowVM As CompoWindowVM) As Boolean
      m_refCompoWindowVM = CompoWindowVM
      Return Not IsNothing(m_refCompoWindowVM)
   End Function

   Friend Function EndInit() As Boolean
      ' Verifico se tutti i pezzi necessari sono stati caricati
      Return Not IsNothing(m_refCompoWindowVM) AndAlso Not IsNothing(m_refCompoSceneHostV) AndAlso
             Not IsNothing(m_refCompoListPageVM) AndAlso Not IsNothing(m_refCompoParamPageVM) AndAlso
             Not IsNothing(m_refCompoManagerVM)
   End Function

#End Region    ' Init

End Module