Modified ShowUpdateSnackbar in UpdaterService.vb to show a different colour for pre-release updates

Author: Iridium-IO

CompactGUI.Core/Compactor.vb

@@ -146,7 +146,7 @@ Public Class Compactor : Implements IDisposable
     Public Sub Dispose() Implements IDisposable.Dispose
         _cancellationTokenSource.Dispose()
         _pauseSemaphore.Dispose()
-        If not _EFInfoPtr.Equals(IntPtr.Zero)  Then
+        If Not _EFInfoPtr.Equals(IntPtr.Zero) Then
             Marshal.FreeHGlobal(_EFInfoPtr)
             _EFInfoPtr = IntPtr.Zero
         End If

CompactGUI/Models/SemVersion.vb

@@ -53,8 +53,8 @@
     End Function
 
     Public Function IsPreRelease() As Boolean
-        If PreRelease = "" Then Return True
-        Return False
+        If PreRelease = "" OrElse PreRelease = Nothing OrElse PreRelease = "r" Then Return False
+        Return True
     End Function
 
     Public Function Friendly() As String

CompactGUI/Services/UpdaterService.vb

@@ -19,25 +19,22 @@ Public Class UpdaterService : Implements IUpdaterService
             Dim jVer = JsonSerializer.Deserialize(Of Dictionary(Of String, SemVersion))(ret)
             Dim newVersion As SemVersion = If(includePrerelease, jVer("Latest"), jVer("LatestNonPreRelease"))
             If newVersion > Application.AppVersion Then
-
-                ShowUpdateSnackbar(newVersion)
-
+                ShowUpdateSnackbar(newVersion, newVersion.IsPreRelease)
             End If
         Catch ex As Exception
             Debug.WriteLine(ex.Message)
         End Try
-
     End Function
 
-    Public Sub ShowUpdateSnackbar(newVersion As SemVersion)
+    Public Sub ShowUpdateSnackbar(newVersion As SemVersion, Optional isPreRelease As Boolean = False)
 
         Dim snackbarSV = Application.GetService(Of CustomSnackBarService)()
 
         Dim textBlock = New TextBlock
         textBlock.Text = "Click to download"
 
         ' Show the custom snackbar
-        snackbarSV.ShowCustom(textBlock, $"Update Version {newVersion.Friendly} Available", ControlAppearance.Success, timeout:=TimeSpan.FromSeconds(10))
+        snackbarSV.ShowCustom(textBlock, $"Update Available ▸ Version {newVersion.Friendly}", If(isPreRelease, ControlAppearance.Info, ControlAppearance.Success), timeout:=TimeSpan.FromSeconds(10))
 
         Dim handler As MouseButtonEventHandler = Nothing
         Dim closedHandler As TypedEventHandler(Of Snackbar, RoutedEventArgs) = Nothing