MS DocumentViewer

GUIs.Test.TestGUI/MyApplication.vb

@@ -0,0 +1,49 @@
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.EDMI.API
+Imports DigitalData.Modules.EDMI.API.Modules
+Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.ZooFlow
+
+Namespace My
+    ''' <summary>
+    ''' Extends the My Namespace
+    ''' Example: My.LogConfig
+    ''' </summary>
+    <HideModuleName()>
+    Module Extension
+        Property LogConfig As LogConfig
+#Region "Database"
+        Property Database As DatabaseWithFallback
+        Property DatabaseECM As MSSQLServer
+        Property DatabaseIDB As MSSQLServer
+    End Module
+
+#End Region
+    Partial Friend Class MyApplication
+            Public Property Skin As String = ""
+            Public Property Palette As String = ""
+            Public Property GlobixDropAreaStyle As String = "PROGRESSIVE"
+
+            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 CommandLineFunction As String
+            Public CommandLineArguments As New Dictionary(Of String, String)
+
+            Public Function GetEnvironment() As Environment
+                Return New Environment With {
+                    .Database = My.DatabaseECM,
+                    .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