install: begin rework

This commit is contained in:
2024-06-17 17:20:02 +02:00
parent 96c178b310
commit 99b1db952b
15 changed files with 64 additions and 4358 deletions

View File

@@ -13,7 +13,7 @@ Imports Telerik.WinControls.UI
Public Class Form1
Private updateConfig As New UpdateConfig
Private updateConfig As New ModpackConfig
Private currentUpdating As Boolean = False
Private lastUpdateCheckResult As UpdateCheckResult = Nothing
@@ -74,11 +74,7 @@ Public Class Form1
RadTextBoxControl_ModpackConfig.Text = filePath
Try
If IsUpdateConfigLoaded() Then
If filePath.StartsWith("http") Then
updateConfig = UpdateConfigExt.LoadFromSnippet(filePath)
Else
updateConfig = UpdateConfig.LoadFromFile(filePath)
End If
updateConfig = ModpackConfig.LoadFromUrl(filePath)
End If
Catch ex As Exception
RadTextBoxControl_ModpackConfig.Text = String.Empty
@@ -169,11 +165,6 @@ Public Class Form1
End If
End Sub
Private Sub ButtonX_EditUpdateConfig_Click(sender As Object, e As EventArgs) Handles RadButton_EditModpackConfig.Click
Dim frm As New FormSettings(updateConfig)
frm.ShowDialog(Me)
End Sub
Private Async Sub ButtonX_CheckForUpdates_Click(sender As Object, e As EventArgs) Handles RadButton_CheckForUpdates.Click
ClearStatus()
If CheckStatus() Then