LITW-Refined/minecraft-modpack-updater
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

d

Browse Source
This commit is contained in:
Pascal
2023-02-26 16:41:56 +01:00
parent a7c31d6086
commit 6dd6721667
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
ModpackUpdater/AppConfig.vb
View File

@@ -8,12 +8,12 @@ Public Class AppConfig
Public Property LastMinecraftProfilePath As String Public Property LastMinecraftProfilePath As String
Public Property LastConfigFilePath As String Public Property LastConfigFilePath As String
Public Property KeepLocalFiles As New List(Of String) Public Property KeepLocalFiles As New List(Of String)
Public Property RemoveLocalFiles As Boolean Public Property AllowRemoveLocalFiles As Boolean
Public Sub Reset() Public Sub Reset()
KeepLocalFiles.Clear() KeepLocalFiles.Clear()
KeepLocalFiles.Add("OptiFine_1.7.10_HD_U_E7.jar") KeepLocalFiles.Add("OptiFine_1.7.10_HD_U_E7.jar")
RemoveLocalFiles = False AllowRemoveLocalFiles = False
End Sub End Sub
Public Shared ReadOnly Property Instance As AppConfig Public Shared ReadOnly Property Instance As AppConfig

2
ModpackUpdater/Form1.vb
View File

@@ -82,7 +82,7 @@ Public Class Form1
AddHandler updater.InstallProgessUpdated, AddressOf Update_InstallProgessUpdated AddHandler updater.InstallProgessUpdated, AddressOf Update_InstallProgessUpdated
AddHandler updater.CheckingProgressUpdated, AddressOf Updated_CheckingProgresssUpdated AddHandler updater.CheckingProgressUpdated, AddressOf Updated_CheckingProgresssUpdated
Dim result As UpdateCheckResult = Await updater.CheckForUpdates(AppConfig.Instance.RemoveLocalFiles) Dim result As UpdateCheckResult = Await updater.CheckForUpdates(Not AppConfig.Instance.AllowRemoveLocalFiles)
Dim everytingOk As Boolean = False Dim everytingOk As Boolean = False
If result Is Nothing Then If result Is Nothing Then