more protected for SettingsManager

This commit is contained in:
2024-01-04 12:51:18 +01:00
parent 2b17cef71a
commit 688c70f3f7
2 changed files with 7 additions and 7 deletions

View File

@@ -25,7 +25,7 @@
</PropertyGroup> </PropertyGroup>
<PropertyGroup> <PropertyGroup>
<GeneratePackageOnBuild>True</GeneratePackageOnBuild> <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
<Version>3.0.4</Version> <Version>3.0.5</Version>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<PackageReference Include="System.Data.DataSetExtensions" Version="4.5.0" /> <PackageReference Include="System.Data.DataSetExtensions" Version="4.5.0" />

View File

@@ -11,10 +11,10 @@ Public Class SettingsManager
Public Event SavingSettings As EventHandler Public Event SavingSettings As EventHandler
Public Event SavedSettings As EventHandler Public Event SavedSettings As EventHandler
Private ReadOnly settingsProvider As New List(Of ISettingsProvider) Protected ReadOnly settingsProvider As New List(Of ISettingsProvider)
Private defaultInstance As ISettings = Nothing Protected defaultInstance As ISettings = Nothing
Private enableAutoSave As Boolean = False Protected enableAutoSave As Boolean = False
Private addedHandler As Boolean = False Protected addedHandler As Boolean = False
Public Property ConfigFilePath As String Public Property ConfigFilePath As String
@@ -62,12 +62,12 @@ Public Class SettingsManager
settingsProvider.Add(provider) settingsProvider.Add(provider)
End Sub End Sub
Private Sub AddAutoSaveHandler() Protected Sub AddAutoSaveHandler()
AddHandler AppDomain.CurrentDomain.ProcessExit, AddressOf AutoSaveSettingsOnExit AddHandler AppDomain.CurrentDomain.ProcessExit, AddressOf AutoSaveSettingsOnExit
addedHandler = True addedHandler = True
End Sub End Sub
Private Sub RemoveAutoSaveHandler() Protected Sub RemoveAutoSaveHandler()
RemoveHandler AppDomain.CurrentDomain.ProcessExit, AddressOf AutoSaveSettingsOnExit RemoveHandler AppDomain.CurrentDomain.ProcessExit, AddressOf AutoSaveSettingsOnExit
addedHandler = False addedHandler = False
End Sub End Sub