Added update checker

Minor fix to progress bar, initializes to 0 to avoid starting at 100% after recent uncompression.

Author: Iridium-IO

CompactGUI/MainWindow.xaml

@@ -340,10 +340,18 @@
                     </Storyboard>
                 </VisualState>
             </VisualStateGroup>
-            
+
         </VisualStateManager.VisualStateGroups>
 
+        <!--Update Banner-->
+        <Grid x:Name="uiUpdateBanner" VerticalAlignment="Bottom" Height="30" Panel.ZIndex="2" Background="#FF468E56" Visibility="Collapsed"  d:Visibility="Visible"  Cursor="Hand" MouseUp="uiUpdateBanner_MouseUp">
+            <Grid.Effect>
+                <DropShadowEffect Direction="90" Opacity="0.15" BlurRadius="6"/>
+            </Grid.Effect>
 
+            <TextBlock x:Name="uiUpdateText" d:Text="update available  -  v3.0a2" FontSize="14" HorizontalAlignment="Center" VerticalAlignment="Center" Foreground="White"/>
+        </Grid>
+        
         <!--Main information section / results of analysis-->
         <Grid x:Name="grid" Height="800" VerticalAlignment="Top" Panel.ZIndex="1">
             <Grid.Background>

CompactGUI/MainWindow.xaml.vb

@@ -15,6 +15,8 @@ Class MainWindow
 
         WikiHandler.GetUpdatedJSON()
 
+        FireAndForgetCheckForUpdates()
+
     End Sub
 
 
@@ -40,6 +42,14 @@ Class MainWindow
 
     End Sub
 
+    Private Async Sub FireAndForgetCheckForUpdates()
+
+        Dim ret = Await UpdateHandler.CheckForUpdate(True)
+        If ret Then
+            uiUpdateBanner.Visibility = Visibility.Visible
+            uiUpdateText.Text = "update available  -  v" & UpdateHandler.NewVersion.ToString
+        End If
+    End Sub
 
     Private Sub FireAndForgetGetSteamHeader()
 
@@ -150,7 +160,7 @@ Class MainWindow
                  uiProgPercentage.Text = val.Item1 & "%"
                  uiCurrentFileCompress.Text = val.Item2.Replace(activeFolder.folderName, "")
              End Sub)
-
+        progress.Report((0, ""))
         Dim exclist As New List(Of String)({".vanim_c", ".vmat_c", ".vxml_c", ".vjs_c", ".res", ".vcfg", ".vphys_c", ".vseq_c", ".vpcf_c", ".cab", ".webm"})
 
         Dim cm As New Compactor(activeFolder.folderName, comboBoxSelectCompressionMode.SelectedIndex, exclist)
@@ -172,6 +182,7 @@ Class MainWindow
                  uiProgPercentage.Text = val.Item1 & "%"
                  uiCurrentFileCompress.Text = val.Item2.Replace(selectedFolder, "")
              End Sub)
+        progress.Report((0, ""))
 
         Dim compressedFilesList = activeFolder.analysisResults.Where(Function(res) res.CompressedSize < res.UncompressedSize).Select(Of String)(Function(f) f.FileName)
 
@@ -187,4 +198,9 @@ Class MainWindow
         If Not successfullySent Then btnSubmitToWiki.IsEnabled = True
     End Sub
 
+    Private Sub uiUpdateBanner_MouseUp(sender As Object, e As MouseButtonEventArgs)
+
+        Process.Start(New ProcessStartInfo("https://github.com/IridiumIO/CompactGUI/releases/") With {.UseShellExecute = True})
+
+    End Sub
 End Class

CompactGUI/UpdateHandler.vb

@@ -0,0 +1,83 @@
+Imports System.Net.Http
+Imports System.Text.Json
+Public Class UpdateHandler
+
+    Public Shared CurrentVersion As New SemVersion(3, 0, 0, "alpha", 3)
+    Public Shared NewVersion As SemVersion
+    Shared UpdateURL As String = "https://raw.githubusercontent.com/IridiumIO/CompactGUI/database/version.json"
+    Shared Async Function CheckForUpdate(includePrerelease As Boolean) As Task(Of Boolean)
+
+        Using httpclient As New HttpClient
+            Dim ret = Await httpclient.GetStringAsync(UpdateURL)
+            Dim jVer = JsonSerializer.Deserialize(Of Dictionary(Of String, SemVersion))(ret)
+            Dim newV As SemVersion = If(includePrerelease, jVer("Latest"), jVer("LatestNonPreRelease"))
+            NewVersion = newV
+            If newV > CurrentVersion Then Return True
+        End Using
+        Return False
+
+    End Function
+
+
+    Class SemVersion : Implements IComparable(Of SemVersion)
+        Property Major As Integer
+        Property Minor As Integer
+        Property Patch As Integer
+        Property PreRelease As String
+        Property PreReleaseMinor As Integer
+
+        Sub New()
+        End Sub
+
+        Sub New(major As Integer, minor As Integer, patch As Integer)
+            Me.Major = major
+            Me.Minor = minor
+            Me.Patch = patch
+        End Sub
+
+        Sub New(major As Integer, minor As Integer, patch As Integer, prerelease As String, prereleaseminor As Integer)
+            Me.Major = major
+            Me.Minor = minor
+            Me.Patch = patch
+            Me.PreRelease = prerelease.ToLower
+            Me.PreReleaseMinor = prereleaseminor
+        End Sub
+
+        Public Function CompareTo(other As SemVersion) As Integer Implements IComparable(Of SemVersion).CompareTo
+            If other.Major - Me.Major <> 0 Then Return other.Major - Me.Major
+            If other.Minor - Me.Minor <> 0 Then Return other.Minor - Me.Minor
+            If other.Patch - Me.Patch <> 0 Then Return other.Patch - Me.Patch
+            If Not String.Equals(Me.PreRelease, other.PreRelease) Then
+                If Me.PreRelease = "" Then Return -1
+                If other.PreRelease = "" Then Return 1
+                Return String.Compare(other.PreRelease, Me.PreRelease)
+            End If
+            If other.PreReleaseMinor - Me.PreReleaseMinor <> 0 Then Return other.PreReleaseMinor - Me.PreReleaseMinor
+            Return 0
+
+        End Function
+
+        Public Shared Operator <(ByVal lhs As SemVersion, ByVal rhs As SemVersion) As Boolean
+            Dim comparer = lhs.CompareTo(rhs)
+            If comparer <= 0 Then Return False
+            Return True
+        End Operator
+
+        Public Shared Operator >(ByVal lhs As SemVersion, ByVal rhs As SemVersion) As Boolean
+            Dim comparer = lhs.CompareTo(rhs)
+            If comparer >= 0 Then Return False
+            Return True
+        End Operator
+
+        Public Overrides Function ToString() As String
+            Return $"{Major}.{Minor}.{Patch}-{PreRelease}.{PreReleaseMinor}"
+        End Function
+
+        Public Function IsPreRelease() As Boolean
+            If PreRelease = "" Then Return True
+            Return False
+        End Function
+
+    End Class
+
+End Class