Index: CHANGES.txt ================================================================== --- CHANGES.txt +++ CHANGES.txt @@ -1,8 +1,10 @@ -Version [unreleased] +Version 0.10.1 +2022-03-10 [Bugfix] When editing an unsaved document, the status panel will (correctly) display "[unsaved file]" now. +[Bugfix] Windows builds still had a seemingly broken update check. Fixed the status display. ------------------------------- Version 0.10.0 2022-03-10 Index: src/buildoutputwindow.pas ================================================================== --- src/buildoutputwindow.pas +++ src/buildoutputwindow.pas @@ -18,11 +18,11 @@ {$mode ObjFPC}{$H+} interface uses - Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Process; + Classes, SysUtils, Forms, StdCtrls, Process; type { TBuildStatusWindow } Index: src/helpers.pas ================================================================== --- src/helpers.pas +++ src/helpers.pas @@ -55,10 +55,9 @@ else if nV1 < nV2 then comp := -1; end else comp := 0; - end; end; end. Index: src/unit1.pas ================================================================== --- src/unit1.pas +++ src/unit1.pas @@ -191,10 +191,11 @@ try FileVerInfo.ReadFileInfo; edtGroffStudioInstalledVersion.Text := FileVerInfo.VersionStrings.Values['FileVersion']; lblAboutProductName.Caption := FileVerInfo.VersionStrings.Values['ProductName'] + ' ' + FileVerInfo.VersionStrings.Values['FileVersion']; + MainStatusBar.Panels[2].Text := ''; {$IFDEF WINDOWS} OnlineVersionsFile := TFPCustomHTTPClient.SimpleGet('https://groff.tuxproject.de/updates/versions.txt'); reGroffVersion := TRegExpr.Create('groff-win ([\d\.]+) (.*)$'); reGroffVersion.ModifierM := True; @@ -213,16 +214,15 @@ begin // Compare the two versions - ours and the online one: GroffHelpers.VerStrCompare(reGroffStudioVersion.Match[1], FileVerInfo.VersionStrings.Values['FileVersion'], HasVersionUpdate); if HasVersionUpdate > 0 then MainStatusBar.Panels[2].Text := 'update ' + reGroffStudioVersion.Match[1] + ' available'; - end else MainStatusBar.Panels[2].Text := ''; + end; {$ELSE} // Non-Windows platforms won't need some of that. {$IFDEF DARWIN} // What's the latest available version? - MainStatusBar.Panels[2].Text := ''; try HTTPClient := TFPHTTPClient.Create(Nil); HTTPClient.OnGetSocketHandler := @GetSocketHandler; OnlineVersionsFile := HTTPClient.SimpleGet('https://groff.tuxproject.de/updates/versions.txt');