ModelStudio

Imports System.CodeDom

''' <summary>
''' An object that represents a Visual Studio Namespace.
''' </summary>
''' <remarks></remarks>
<Serializable()> _
Public Class CodeDomNamespace
    Implements ICodeMember

#Region "Declarations"

    Private mNameSpace As CodeNamespace
    Private cparent As Object

#End Region

#Region "ctor"

    ''' <summary>
    ''' Initialize a new instance of the CodeDomNamespace object
    ''' </summary>
    ''' <remarks></remarks>
    Sub New()
        mNameSpace = New CodeNamespace("myNamespace")
    End Sub

    ''' <summary>
    ''' Initialize a new instance of the CodeDomNamespace object
    ''' </summary>
    ''' <remarks></remarks>
    Sub New(ByVal Name As String)
        mNameSpace = New CodeNamespace(Name)
    End Sub

#End Region

#Region "Properties"

    Public Property Parent() As Object
        Get
            Return cparent
        End Get
        Set(ByVal value As Object)
            cparent = value
        End Set
    End Property

    ''' <summary>
    ''' The name of the represented Namespace
    ''' </summary>
    Public Property Name() As String Implements ICodeMember.Name
        Get
            Return mNameSpace.Name
        End Get
        Set(ByVal value As String)
            mNameSpace.Name = value
        End Set
    End Property

    Private colClasses As CodeDomClassCollection = New CodeDomClassCollection(Me)
    ''' <summary>
    ''' The collection of classes for this namespace
    ''' </summary>
    ReadOnly Property Classes() As CodeDomClassCollection
        Get
            Return colClasses
        End Get
    End Property

    Private colImports As CodeDomImportCollection = New CodeDomImportCollection(Me)
    ''' <summary>
    ''' The collection of imports for this namespace
    ''' </summary>
    ReadOnly Property [Imports]() As CodeDomImportCollection
        Get
            Return colImports
        End Get
    End Property

    ''' <summary>
    ''' Used by Generator: Exposes the namespace for code generation
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public ReadOnly Property DOMNameSpace() As CodeNamespace
        Get
            Return mNameSpace
        End Get
    End Property

#End Region

End Class