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

IDE: fixed path of startlazarus on darwin

Browse Source 
git-svn-id: trunk@38113 -
This commit is contained in:
mattias 2012-08-02 09:10:04 +00:00
parent cc0deae393
commit ec3a8e1fee
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/main.pp
View File

@ -12522,7 +12522,7 @@ end;
procedure TMainIDE.DoRestart; procedure TMainIDE.DoRestart;
const const
DarwinStartlazBundlePath = 'Resources/startlazarus.app/Contents/MacOS/'; DarwinStartlazBundlePath = 'lazarus.app/Contents/Resources/startlazarus.app/Contents/MacOS/';
procedure StartStarter; procedure StartStarter;
var var
@ -12542,13 +12542,12 @@ const
Params := TStringList.Create; Params := TStringList.Create;
ParseCommandLine(Params, Dummy, Unused); ParseCommandLine(Params, Dummy, Unused);
//DebugLn('Done parsing CommandLine'); //DebugLn('Done parsing CommandLine');
{$ifndef darwin} {$ifdef darwin}
ExeName := AppendPathDelim(EnvironmentOptions.GetParsedLazarusDirectory)+
DarwinStartlazBundlePath + 'startlazarus';
{$else}
ExeName := AppendPathDelim(EnvironmentOptions.GetParsedLazarusDirectory) + ExeName := AppendPathDelim(EnvironmentOptions.GetParsedLazarusDirectory) +
'startlazarus' + GetExecutableExt; 'startlazarus' + GetExecutableExt;
{$else}
ExeName := ExpandUNCFileNameUTF8(EnvironmentOptions.GetParsedLazarusDirectory);
ExeName := AppendPathDelim( ExtractFilePath(ExeName) ) +
DarwinStartlazBundlePath + 'startlazarus' + GetExecutableExt;
{$endif} {$endif}
if not FileExistsUTF8(ExeName) then begin if not FileExistsUTF8(ExeName) then begin
IDEMessageDialog('Error',Format(lisCannotFindLazarusStarter, IDEMessageDialog('Error',Format(lisCannotFindLazarusStarter,