paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 04:19:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: update startlazarus for darwin. Not to rely on the exit code returned by open utility. As it's not lazarus returned code

Browse Source 
git-svn-id: trunk@61402 -
This commit is contained in:
dmitry 2019-06-17 03:27:15 +00:00
parent 3123d5b440
commit d969404679
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/lazarusmanager.pas
View File

@ -381,9 +381,15 @@ begin
EnvOverrides.Values['LIBOVERLAY_SCROLLBAR']:='0'; EnvOverrides.Values['LIBOVERLAY_SCROLLBAR']:='0';
{$ENDIF} {$ENDIF}
{$IFDEF darwin} {$IFDEF darwin}
// "open" process runs a bundle, but doesn't wait for it to finish execution
// "startlazarus" logic suggests that the Lazarus process would be waited
// and if the special 99 (ExitCodeRestartLazarus) code is received,
// would repeat the restart process.
// Since "open" doesn't play nice with "startlazarus" logic.
// The arguments would not indicate that lazarus was started by startlazarus
FLazarusProcess := FLazarusProcess :=
TLazarusProcess.Create('open', TLazarusProcess.Create('open',
' -a ' + FLazarusPath + ' --args ' + GetCommandLineParameters(FCmdLineParams, True)+' '+FCmdLineFiles, ' -a ' + FLazarusPath + ' --args --no-splash-screen ' + GetCommandLineParameters(FCmdLineParams, False)+' '+FCmdLineFiles,
EnvOverrides); EnvOverrides);
{$ELSE} {$ELSE}
FLazarusProcess := FLazarusProcess :=