Friend Module DxfImportWindowMap

   Private m_refDxfImportWindowVM As DxfImportWindowVM
   Private m_refDxfImportSceneHostV As DxfImportSceneHostV
   Private m_refUnderDrillControlVM As UnderDrillControlVM

#Region "Get"

   Public ReadOnly Property refDxfImportWindowVM As DxfImportWindowVM
      Get
         Return m_refDxfImportWindowVM
      End Get
   End Property

   Public ReadOnly Property refDxfImportSceneHostV As DxfImportSceneHostV
      Get
         Return m_refDxfImportSceneHostV
      End Get
   End Property

   Public ReadOnly Property refUnderDrillControlVM As UnderDrillControlVM
      Get
         Return m_refUnderDrillControlVM
      End Get
   End Property

#End Region    ' Get

#Region "Set"

   Friend Function SetRefDxfImportSceneHostV(DxfImportSceneHostV As DxfImportSceneHostV) As Boolean
      m_refDxfImportSceneHostV = DxfImportSceneHostV
      Return Not IsNothing(m_refDxfImportSceneHostV)
   End Function

   Friend Function SetRefUnderDrillControlVM(UnderDrillControlVM As UnderDrillControlVM) As Boolean
      m_refUnderDrillControlVM = UnderDrillControlVM
      Return Not IsNothing(m_refUnderDrillControlVM)
   End Function

#End Region    ' Set

#Region "Init"

   Friend Function BeginInit(DxfImportWindowVM As DxfImportWindowVM) As Boolean
      m_refDxfImportWindowVM = DxfImportWindowVM
      Return Not IsNothing(m_refDxfImportWindowVM)
   End Function

   Friend Function EndInit() As Boolean
      ' Verifico se tutti i pezzi necessari sono stati caricati
      Return Not IsNothing(m_refDxfImportWindowVM) AndAlso Not IsNothing(m_refDxfImportSceneHostV) AndAlso
             Not IsNothing(m_refUnderDrillControlVM)
   End Function

#End Region    ' Init

End Module