groffstudio

Check-in [a74e7d1c7f]
Login

Check-in [a74e7d1c7f]

Overview
Comment:Only build PDF when the user wants to, even on Windows.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: a74e7d1c7f8b6be8d8cabe34e1e087916525024261e3e47268cb6640bd8860d3
User & Date: Cthulhux on 2024-04-30 09:49:22
Other Links: manifest | tags
Context
2024-04-30
09:51
Simplified build status output on Windows check-in: 300ab98f2c user: Cthulhux tags: trunk
09:49
Only build PDF when the user wants to, even on Windows. check-in: a74e7d1c7f user: Cthulhux tags: trunk
09:42
BBCode won't work. check-in: 3698bbd77b user: Cthulhux tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified src/groffstudio.lpi from [67011a15ae] to [bfb4387ac2].

︙︙
19
20
21
22
23
24
25

26
27
28
29
30
31
32

        <Resource_0 FileName="..\LICENSE" Type="RCDATA" ResourceName="LICENSE"/>
      </Resources>
    </General>
    <VersionInfo>
      <UseVersionInfo Value="True"/>
      <AutoIncrementBuild Value="True"/>
      <MinorVersionNr Value="14"/>

      <StringTable ProductName="groffstudio"/>
    </VersionInfo>
    <BuildModes>
      <Item Name="Default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>








>








19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

        <Resource_0 FileName="..\LICENSE" Type="RCDATA" ResourceName="LICENSE"/>
      </Resources>
    </General>
    <VersionInfo>
      <UseVersionInfo Value="True"/>
      <AutoIncrementBuild Value="True"/>
      <MinorVersionNr Value="14"/>
      <BuildNr Value="2"/>
      <StringTable ProductName="groffstudio"/>
    </VersionInfo>
    <BuildModes>
      <Item Name="Default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
︙︙

Modified src/unit1.pas from [dbf4805b7c] to [0295db007b].

︙︙
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432

  buildSuccess := BuildWindow.BuildDocument(buildOpts, logFileName);
  if buildSuccess then
    MainStatusBar.Panels[1].Text := 'build successful'
  else
    MainStatusBar.Panels[1].Text := 'build problem';

  {$IFDEF WINDOWS}
  if buildSuccess and hasGhostscript then
  begin
    // Invoke ps2pdf:
    buildOpts := 'ps2pdf';
    // outputFileName is still the .ps file. Just use it as the input name.
    buildOpts := buildOpts + ' ' + outputFileName;
    buildSuccess := BuildWindow.BuildDocument(buildOpts, logFileName);
    if buildSuccess then








|








418
419
420
421
422
423
424
425
426
427
428
429
430
431
432

  buildSuccess := BuildWindow.BuildDocument(buildOpts, logFileName);
  if buildSuccess then
    MainStatusBar.Panels[1].Text := 'build successful'
  else
    MainStatusBar.Panels[1].Text := 'build problem';

  {$IFDEF WINDOWS}
  if buildSuccess and hasGhostscript and rdPdf.Checked then
  begin
    // Invoke ps2pdf:
    buildOpts := 'ps2pdf';
    // outputFileName is still the .ps file. Just use it as the input name.
    buildOpts := buildOpts + ' ' + outputFileName;
    buildSuccess := BuildWindow.BuildDocument(buildOpts, logFileName);
    if buildSuccess then
︙︙