groffstudio

Check-in [b79a475132]
Login

Check-in [b79a475132]

Overview
Comment:Brought back the 'no problem' log.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: b79a4751325efc3e7ffdf2a5a3f86e93438bfffc9f4b3224f595ad6475d71d9e
User & Date: Cthulhux on 2024-01-10 11:12:13
Other Links: manifest | tags
Context
2024-01-10
21:33
Adjusted a few SynEdit options check-in: 52f4bdceab user: Cthulhux tags: trunk
11:12
Brought back the 'no problem' log. check-in: b79a475132 user: Cthulhux tags: trunk
11:09
[Bugfix] BuildDocument did not return success on success. [Improved] BuildDocument uses a simpler execution approach now. check-in: a0a5ea5104 user: Cthulhux tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified src/buildoutputwindow.pas from [befb5316ad] to [b2dc02ad8c].

︙︙
49
50
51
52
53
54
55


56
57
58
59
60
61
62

  ret: Boolean;
begin
{$IFDEF WINDOWS}
  ret := RunCommand('cmd', ['/c', CommandLine], str, [], swoHIDE);
{$ELSE}
  ret := RunCommand('sh', ['-c', CommandLine], str, [], swoHIDE);
{$ENDIF}



  if LogFile <> '' then
  begin
    AssignFile(lh, LogFile);
    try
      ReWrite(lh);
      Write(lh, str);








>
>








49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64

  ret: Boolean;
begin
{$IFDEF WINDOWS}
  ret := RunCommand('cmd', ['/c', CommandLine], str, [], swoHIDE);
{$ELSE}
  ret := RunCommand('sh', ['-c', CommandLine], str, [], swoHIDE);
{$ENDIF}

  if Length(str) = 0 then str := 'No problems have occurred. :-)';

  if LogFile <> '' then
  begin
    AssignFile(lh, LogFile);
    try
      ReWrite(lh);
      Write(lh, str);
︙︙