paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 17:21:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

startlazarus: cocoa: do not use open -a, execute bundle exe, else menu is not visible

Browse Source 
git-svn-id: branches/fixes_2_0@63621 -
This commit is contained in:
mattias 2020-07-22 12:36:25 +00:00
parent bda8742a72
commit d4e099a4f3
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/lazarusmanager.pas
View File

@ -370,17 +370,21 @@ begin
{$IFDEF darwin} {$IFDEF darwin}
if FileExistsUTF8(FLazarusPath+'.app') then begin if FileExistsUTF8(FLazarusPath+'.app') then begin
// start the bundle instead // start the bundle instead
{$IFDEF LCLCocoa}
FLazarusPath:= FLazarusPath+'.app/Contents/MacOS/'+ExtractFileName(FLazarusPath);
{$ELSE}
FLazarusPath:= FLazarusPath+'.app';// /Contents/MacOS/'+ExtractFileName(FLazarusPath); FLazarusPath:= FLazarusPath+'.app';// /Contents/MacOS/'+ExtractFileName(FLazarusPath);
{$ENDIF}
end; end;
{$ENDIF} {$ENDIF}
DebugLn(['TLazarusManager.Run starting ',FLazarusPath,' ...']); DebugLn(['Info: (startlazarus) [TLazarusManager.Run] starting ',FLazarusPath,' ...']);
EnvOverrides:=TStringList.Create; EnvOverrides:=TStringList.Create;
try try
{$IFDEF Linux} {$IFDEF Linux}
EnvOverrides.Values['LIBOVERLAY_SCROLLBAR']:='0'; EnvOverrides.Values['LIBOVERLAY_SCROLLBAR']:='0';
{$ENDIF} {$ENDIF}
{$IFDEF darwin} {$IFDEF LCLCarbon}
FLazarusProcess := FLazarusProcess :=
TLazarusProcess.Create('open', TLazarusProcess.Create('open',
' -a ' + FLazarusPath + ' --args ' + GetCommandLineParameters(FCmdLineParams, True)+' '+FCmdLineFiles, ' -a ' + FLazarusPath + ' --args ' + GetCommandLineParameters(FCmdLineParams, True)+' '+FCmdLineFiles,

BIN
ide/startlazarus.res
View File

Binary file not shown.