mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-08 11:58:12 +02:00
startlazarus: cocoa: do not use open -a, execute bundle exe, else menu is not visible
git-svn-id: trunk@63620 -
This commit is contained in:
parent
efdce59d90
commit
e6f3bd3f8f
@ -370,17 +370,21 @@ begin
|
||||
{$IFDEF darwin}
|
||||
if DirectoryExistsUTF8(FLazarusPath+'.app') then begin
|
||||
// start the bundle instead
|
||||
{$IFDEF LCLCocoa}
|
||||
FLazarusPath:= FLazarusPath+'.app/Contents/MacOS/'+ExtractFileName(FLazarusPath);
|
||||
{$ELSE}
|
||||
FLazarusPath:= FLazarusPath+'.app';// /Contents/MacOS/'+ExtractFileName(FLazarusPath);
|
||||
{$ENDIF}
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
DebugLn(['TLazarusManager.Run starting ',FLazarusPath,' ...']);
|
||||
DebugLn(['Info: (startlazarus) [TLazarusManager.Run] starting ',FLazarusPath,' ...']);
|
||||
EnvOverrides:=TStringList.Create;
|
||||
try
|
||||
{$IFDEF Linux}
|
||||
EnvOverrides.Values['LIBOVERLAY_SCROLLBAR']:='0';
|
||||
{$ENDIF}
|
||||
{$IFDEF darwin}
|
||||
{$IFDEF LCLCarbon}
|
||||
// "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,
|
||||
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user