groffstudio

Check-in [f3b2f329cf]
Login

Check-in [f3b2f329cf]

Overview
Comment:Clarified comment :)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: f3b2f329cfda00fe9eee9a908425073e1b9c6630029663ad6116379acd82202e
User & Date: Cthulhux on 2022-02-24 14:03:56
Other Links: manifest | tags
Context
2022-03-03
20:53
Ugh. I forgot that I changed the account last year. check-in: 9bfb75a8e1 user: Cthulhux tags: trunk
2022-02-24
14:03
Clarified comment :) check-in: f3b2f329cf user: Cthulhux tags: trunk
13:32
Ok, there's also IRC now. check-in: 1779b6daf9 user: Cthulhux tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified src/buildoutputwindow.pas from [112d48bb21] to [e92472a1a9].

︙
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

39
40
41
42
43
44
45

46
47
48
49
50
51
52








-








  OutputText: String;
  BuildStatusWindow: TBuildStatusWindow;

implementation

{$R *.lfm}

// TODO: not working
function TBuildStatusWindow.BuildDocument(CommandLine: String): Boolean;
var
  p: TProcess;
  AStringList: TStringList;
begin
  p := TProcess.Create(nil);
  p.Options := p.Options + [poWaitOnExit, poUsePipes];
︙
74
75
76
77
78
79
80

81
82
83
84
85
86

73
74
75
76
77
78
79
80
81
82
83
84
85
86








+







    // We don't have any output. We can close the window.
    BuildStatusWindow.Close;
    result := True
  end
  else begin
    // There was some output. Chances are that warnings occurred.
    // Keep it shown.
    // TODO: This does not always work well...
    result := False
  end;
end;

end.

Modified src/groffstudio.lps from [fe3914d2f8] to [10df3282b6]. 

1
2
3
4
5
6
7
8
9
10

11
12

13
14
15
16
17
18
19
20
21
22
23
24


25
26
27
28
29
30
31

1
2
3
4
5
6
7
8
9
10
11
12

13
14
15
16
17
18
19
20
21
22
23


24
25
26
27
28
29
30
31
32











+

-
+










-
-
+
+








<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
  <ProjectSession>
    <PathDelim Value="\"/>
    <Version Value="12"/>
    <BuildModes Active="Default"/>
    <Units>
      <Unit>
        <Filename Value="groffstudio.lpr"/>
        <IsPartOfProject Value="True"/>
        <IsVisibleTab Value="True"/>
        <EditorIndex Value="1"/>
        <CursorPos X="47" Y="22"/>
        <CursorPos X="35" Y="4"/>
        <UsageCount Value="42"/>
        <Loaded Value="True"/>
      </Unit>
      <Unit>
        <Filename Value="unit1.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="MainForm"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="Unit1"/>
        <TopLine Value="302"/>
        <CursorPos X="39" Y="309"/>
        <TopLine Value="121"/>
        <CursorPos X="68" Y="134"/>
        <UsageCount Value="42"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit>
      <Unit>
        <Filename Value="helpers.pas"/>
        <IsPartOfProject Value="True"/>
︙
39
40
41
42
43
44
45
46
47
48
49


50
51
52
53
54
55
56

40
41
42
43
44
45
46

47


48
49
50
51
52
53
54
55
56








-

-
-
+
+








      <Unit>
        <Filename Value="buildoutputwindow.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="BuildStatusWindow"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="BuildOutputWindow"/>
        <IsVisibleTab Value="True"/>
        <EditorIndex Value="2"/>
        <TopLine Value="53"/>
        <CursorPos X="22" Y="80"/>
        <TopLine Value="49"/>
        <CursorPos X="39" Y="66"/>
        <UsageCount Value="24"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit>
      <Unit>
        <Filename Value="C:\lazarus\lcl\stdctrls.pp"/>
        <UnitName Value="StdCtrls"/>
︙