groffstudio

Check-in [947b4bfbd2]
Login

Check-in [947b4bfbd2]

Overview
Comment:tests
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 947b4bfbd20f7a108c2ed2571ed45911b6f74e9071b1b75e6dab40cb56f1b2b1
User & Date: Cthulhux on 2024-01-10 04:00:00
Other Links: manifest | tags
Context
2024-01-10
10:43
[Bugfix] cmbMacro was checked badly check-in: 8500e1c380 user: Cthulhux tags: trunk
04:00
tests check-in: 947b4bfbd2 user: Cthulhux tags: trunk
03:31
[Bugfix] Calling troff over the system default shell now, potentially finding more paths. check-in: d43bd7f83d user: Cthulhux tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified src/groffstudio.lpi from [a8eb228557] to [4ca94d1e21].

︙︙
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100

    <Target>
      <Filename Value="groffstudio"/>
    </Target>
    <SearchPaths>
      <IncludeFiles Value="$(ProjOutDir)"/>
      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    </SearchPaths>
    <Conditionals Value="if TargetOS = &apos;darwin&apos; then
  LinkerOptions += &apos; -ld_classic -macosx_version_min&apos;;"/>
    <CodeGeneration>
      <Optimizations>
        <OptimizationLevel Value="4"/>
      </Optimizations>
    </CodeGeneration>
    <Linking>
      <Debugging>








<
<








85
86
87
88
89
90
91


92
93
94
95
96
97
98

    <Target>
      <Filename Value="groffstudio"/>
    </Target>
    <SearchPaths>
      <IncludeFiles Value="$(ProjOutDir)"/>
      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    </SearchPaths>


    <CodeGeneration>
      <Optimizations>
        <OptimizationLevel Value="4"/>
      </Optimizations>
    </CodeGeneration>
    <Linking>
      <Debugging>
︙︙

Modified src/unit1.lfm from [f2f6b025a3] to [a3062d8c1e]. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

object MainForm: TMainForm
  Left = 1073
  Height = 692
  Top = 99
  Width = 847
  Caption = 'groffstudio'
  ClientHeight = 692
  ClientWidth = 847
  DefaultMonitor = dmPrimary
  OnClose = FormClose
  OnCreate = FormCreate
  LCLVersion = '3.0.0.3'
  object MainStatusBar: TStatusBar
    Left = 0
    Height = 18
    Top = 674
    Width = 847
    Panels = <    
      item












|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

object MainForm: TMainForm
  Left = 1073
  Height = 692
  Top = 99
  Width = 847
  Caption = 'groffstudio'
  ClientHeight = 692
  ClientWidth = 847
  DefaultMonitor = dmPrimary
  OnClose = FormClose
  OnCreate = FormCreate
  LCLVersion = '3.1.0.0'
  object MainStatusBar: TStatusBar
    Left = 0
    Height = 18
    Top = 674
    Width = 847
    Panels = <    
      item
︙︙
223
224
225
226
227
228
229

230
231
232
233
234
235
236
237
238
239
240
241
242

        Left = 10
        Height = 518
        Top = 0
        Width = 801
        Anchors = [akTop, akLeft, akRight, akBottom]
        Font.CharSet = 4
        Font.Height = -13

        Font.Pitch = fpFixed
        Font.Quality = fqCleartypeNatural
        ParentColor = False
        ParentFont = False
        TabOrder = 3
        Gutter.Width = 67
        Gutter.MouseActions = <>
        RightGutter.Width = 0
        RightGutter.MouseActions = <>
        Keystrokes = <        
          item
            Command = ecUp
            ShortCut = 38








>





|








223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243

        Left = 10
        Height = 518
        Top = 0
        Width = 801
        Anchors = [akTop, akLeft, akRight, akBottom]
        Font.CharSet = 4
        Font.Height = -13
        Font.Name = 'Andale Mono'
        Font.Pitch = fpFixed
        Font.Quality = fqCleartypeNatural
        ParentColor = False
        ParentFont = False
        TabOrder = 3
        Gutter.Width = 57
        Gutter.MouseActions = <>
        RightGutter.Width = 0
        RightGutter.MouseActions = <>
        Keystrokes = <        
          item
            Command = ecUp
            ShortCut = 38
︙︙
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700

        OnChange = SynEdit1Change
        inline SynLeftGutterPartList1: TSynGutterPartList
          object SynGutterMarks1: TSynGutterMarks
            Width = 24
            MouseActions = <>
          end
          object SynGutterLineNumber1: TSynGutterLineNumber
            Width = 27
            MouseActions = <>
            MarkupInfo.Background = clBtnFace
            MarkupInfo.Foreground = clNone
            DigitCount = 2
            ShowOnlyLineNumbersMultiplesOf = 1
            ZeroStart = False
            LeadingZeros = False








|








687
688
689
690
691
692
693
694
695
696
697
698
699
700
701

        OnChange = SynEdit1Change
        inline SynLeftGutterPartList1: TSynGutterPartList
          object SynGutterMarks1: TSynGutterMarks
            Width = 24
            MouseActions = <>
          end
          object SynGutterLineNumber1: TSynGutterLineNumber
            Width = 17
            MouseActions = <>
            MarkupInfo.Background = clBtnFace
            MarkupInfo.Foreground = clNone
            DigitCount = 2
            ShowOnlyLineNumbersMultiplesOf = 1
            ZeroStart = False
            LeadingZeros = False
︙︙

Modified src/unit1.pas from [d57fac412e] to [0fcf2493e9].

︙︙
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153

  ResStream: TResourceStream;
  {$IFDEF DARWIN}
  HTTPClient: TFPHttpClient;
  {$ENDIF}
begin
  // What's the current running groff version?
  {$IFDEF WINDOWS}
  if RunCommand('cmd', ['/c', 'troff', '--version'], GroffOutputVersion) then
  {$ELSE}
  if RunCommand('/bin/sh', ['-c', 'troff', '--version'], GroffOutputVersion) then
  {$ENDIF}
  begin
    edtGroffInstalledVersion.Text := GroffOutputVersion;
    if pos('GNU', GroffOutputVersion) = 0 then
       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 +
       'If it is an error, please tell me so I can improve this detection.');








|

|








137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153

  ResStream: TResourceStream;
  {$IFDEF DARWIN}
  HTTPClient: TFPHttpClient;
  {$ENDIF}
begin
  // What's the current running groff version?
  {$IFDEF WINDOWS}
  if RunCommand('cmd', ['/c', 'troff --version'], GroffOutputVersion) then
  {$ELSE}
  if RunCommand('/bin/sh', ['-c', 'troff --version'], GroffOutputVersion) then
  {$ENDIF}
  begin
    edtGroffInstalledVersion.Text := GroffOutputVersion;
    if pos('GNU', GroffOutputVersion) = 0 then
       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 +
       'If it is an error, please tell me so I can improve this detection.');
︙︙