install: remove legacy code
This commit is contained in:
@@ -88,7 +88,7 @@ Public Class Form1
|
||||
End Sub
|
||||
|
||||
Private Async Function ExecuteUpdate(doInstall As Boolean) As Task
|
||||
Dim updater As New UpdateInstaller(updateConfig, GetMinecraftProfilePath)
|
||||
Dim updater As New ModpackInstaller(updateConfig, GetMinecraftProfilePath)
|
||||
AddHandler updater.InstallProgessUpdated, AddressOf Update_InstallProgessUpdated
|
||||
AddHandler updater.CheckingProgressUpdated, AddressOf Updated_CheckingProgresssUpdated
|
||||
|
||||
@@ -132,7 +132,7 @@ Public Class Form1
|
||||
End Function
|
||||
|
||||
Private Sub Update_InstallProgessUpdated(result As UpdateCheckResult, processedSyncs As Integer)
|
||||
Dim actionCount = If(result.IsLegacy, result.SyncFiles.Count, result.UpdateActions.Count)
|
||||
Dim actionCount = result.UpdateActions.Count
|
||||
SetStatus(Math.Round(processedSyncs / actionCount * 100, 1) & "%", MySymbols.icons8_software_installer_16px)
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user