Index: src/groffstudio.lpi
==================================================================
--- src/groffstudio.lpi
+++ src/groffstudio.lpi
@@ -21,11 +21,11 @@
-
+
Index: src/unit1.pas
==================================================================
--- src/unit1.pas
+++ src/unit1.pas
@@ -134,12 +134,11 @@
{$R *.lfm}
procedure TDetectGroffThread.UpdateUI;
begin
- // groff:
- MainForm.edtGroffInstalledVersion.Text := GroffOutputVersion;
+ // Try to find groff:
if pos('GNU', GroffOutputVersion) = 0 then
begin
ShowMessage('groffstudio thinks that your installed version of troff is not GNU troff.'
+ LineEnding + 'If this is correct, you are advised to fix this before continuing.'
+ LineEnding +
@@ -147,14 +146,17 @@
hasGroff := False;
MainForm.edtGroffInstalledVersion.Text := 'n/a';
MainForm.lblTroffCommandNotFound.Visible := True;
end
else
+ begin
hasGroff := True;
+ MainForm.edtGroffInstalledVersion.Text := GroffOutputVersion;
+ end;
- // ps2pdf (Windows-only):
{$IFDEF WINDOWS}
+ // Try to find ps2pdf (Windows-only):
if pos('ps2pdf', ps2pdfOutput) = 0 then
begin
ShowMessage('On Windows, for creating PDF files, you need Ghostscript installed.'
+ LineEnding + 'Sadly, groffstudio could not find ps2pdf.exe in your %PATH%, so '
+ 'writing PDF files will not be supported.');