AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Common: Improve Workspace Class

Browse Source
This commit is contained in:
Jonathan Jenne 2022-07-08 15:22:33 +02:00
parent cf543e7ee9
commit 9193df0dd2
3 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
GUIs.Common/DocumentResultList/Config.vb
View File

@ -5,7 +5,6 @@ Namespace DocumentResultList
Public Property WindowLocation As Point
Public Property WindowSize As Size
Public Property GridFontSizeDelta As Integer = 0
Public Property SelectedWorkspace As String = Workspace.DEFAULT_WORKSPACE
Public Property SelectedWorkspace As String = Workspace(Of Config).DEFAULT_WORKSPACE
End Class
End Namespace

6
GUIs.Common/DocumentResultList/Workspace.vb
View File

@ -8,11 +8,11 @@ Imports DigitalData.Modules.Filesystem
Imports DigitalData.Modules.Language
Namespace DocumentResultList
Public Class Workspace
Public Class Workspace(Of TConfig)
Inherits BaseClass
Private ReadOnly Manager As WorkspaceManager
Private ReadOnly Config As ConfigManager(Of Config)
Private ReadOnly Config As ConfigManager(Of TConfig)
Private ReadOnly FileEx As File
Public Const WORKSPACE_FILENAME As String = "Workspaces.xml"
@ -37,7 +37,7 @@ Namespace DocumentResultList
End Get
End Property
Public Sub New(pLogConfig As LogConfig, pConfigManager As ConfigManager(Of Config), pWorkspaceManager As WorkspaceManager)
Public Sub New(pLogConfig As LogConfig, pConfigManager As ConfigManager(Of TConfig), pWorkspaceManager As WorkspaceManager)
MyBase.New(pLogConfig)
Manager = pWorkspaceManager
Config = pConfigManager

4
GUIs.Common/frmDocumentResultList.vb
View File

@ -48,7 +48,7 @@ Public Class frmDocumentResultList
Private ReadOnly Params As Params
Private ReadOnly LayoutManager As Layout
Private ReadOnly FormHelper As FormHelper
Private ReadOnly Workspace As Workspace
Private ReadOnly Workspace As Workspace(Of Config)
Private WithEvents Watcher As Watcher
' Runtime variables
@ -119,7 +119,7 @@ Public Class frmDocumentResultList
GridBuilder = New GridBuilder(New List(Of GridView) From {GridView1, GridView2, GridView3})
FileEx = New Modules.Windows.File(pLogConfig)
LayoutManager = New Layout(pLogConfig, Config, New List(Of GridView) From {GridView1, GridView2, GridView3})
Workspace = New Workspace(pLogConfig, Config, WorkspaceManager1)
Workspace = New Workspace(Of Config)(pLogConfig, Config, WorkspaceManager1)
UserLanguage = Utils.NotNull(Environment.User.Language, State.UserState.LANG_EN_US)
End Sub