Index: CHANGES.txt ================================================================== --- CHANGES.txt +++ CHANGES.txt @@ -1,20 +1,28 @@ +Version [unreleased] + +[Bugfix] When editing an unsaved document, the status panel will (correctly) display "[unsaved file]" now. + +------------------------------- + Version 0.10.0 2022-03-10 [Feature] Log file creation. [Changed] Replaced the build output window by a status window. [Bugfix] Windows builds erroneously showed "-1" in the update status field. [Bugfix] Building a document without a macro package works now. +------------------------------- Version 0.9.9.1 2022-03-10 [Feature] macOS builds are working now. [Feature] First macOS release. +------------------------------- Version 0.9.9.0 2022-02-24 [Feature] First working version. Index: src/helpers.pas ================================================================== --- src/helpers.pas +++ src/helpers.pas @@ -48,16 +48,17 @@ else nV2 := 0; if nV1 = nV2 then VerStrCompare(Copy(newVersion, nE1 + 1, Length(newVersion)), Copy(oldVersion, nE2 + 1, Length(oldVersion)), comp) - else if nV1 > nV2 then - comp := 1 - else if nV1 < nV2 then - comp := -1; - end - else - comp := 0; + else if nV1 > nV2 then + comp := 1 + else if nV1 < nV2 then + comp := -1; + end + else + comp := 0; + end; end; end. Index: src/unit1.pas ================================================================== --- src/unit1.pas +++ src/unit1.pas @@ -154,11 +154,11 @@ hasGroff := False; lblTroffCommandNotFound.Visible := True; end; // Default file name - currentGroffFilePath := '[unsaved file]'; + currentGroffFileName := '[unsaved file]'; // Embed the license ResStream:= TResourceStream.Create(HInstance, 'LICENSE', RT_RCDATA); try mLicense.Lines.LoadFromStream(ResStream); @@ -296,11 +296,11 @@ procedure TMainForm.btnBuildClick(Sender: TObject); var buildSuccess: Boolean; buildOpts: String; - logFileName: String; + logFileName: String = ''; outputFileName: String; begin // Reset status display: MainStatusBar.Panels[1].Text := '';