Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.ZooFlow


Namespace My
    ''' <summary>
    ''' Extends the My Namespace
    ''' Example: My.LogConfig
    ''' </summary>
    <HideModuleName()>
    Module Extension
        Property SystemConfigManager As ConfigManager(Of ClassConfig)
        ReadOnly Property SystemConfig As ClassConfig
            Get
                Return SystemConfigManager.Config
            End Get
        End Property

        Property UIConfigManager As ConfigManager(Of ClassUIConfig)
        ReadOnly Property UIConfig As ClassUIConfig
            Get
                Return UIConfigManager.Config
            End Get
        End Property

        Property DTAttributes As DataTable
        Property DTCOMMON_SQL As DataTable
        Property DTCATALOG As DataTable
        Property IDB_DT_DOC_DATA As DataTable
        Property LogConfig As LogConfig
        Property MainForm As frmAdmin_Start
        Property SearchForm As frmSearchStart
        Property Database As MSSQLServer
        Property DatabaseIDB As MSSQLServer
        Property Queries As New ClassQueries
        Property Filestore_Work As String
        Property Filestore_Archive As String
    End Module

    ''' <summary>
    ''' Extends the My.Application Namespace to hold Application State
    ''' Example: My.Application.User
    ''' </summary>
    Partial Friend Class MyApplication
        Public Property Settings As New State.SettingsState
        Public Property User As New State.UserState
        Public Property Service As New State.ServiceState
        Public Property Modules As New Dictionary(Of String, State.ModuleState)
        Public Property ModulesActive As New List(Of String)
        Public Property ClipboardWatcher As New ClipboardWatcher.State
        Public Property IDB_ConnectionString As String
        Public Property Globix As New Globix.State
        Public Property Search As New Search.State

        Public CommandLineFunction As String
        Public CommandLineArguments As New Dictionary(Of String, String)
        Public Property IDB_DT_DOC_DATA As DataTable

        Public Function GetEnvironment() As Environment
            Return New Environment With {
                .Database = My.Database,
                .DatabaseIDB = My.DatabaseIDB,
                .Modules = My.Application.Modules,
                .Service = My.Application.Service,
                .Settings = My.Application.Settings,
                .User = My.Application.User
            }
        End Function
    End Class
End Namespace