pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Removed hardcoded path to xib-file to be opened in Xcode

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2680 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
loesje_
2013-02-13 20:23:04 +00:00
parent 9e192acebc
commit aad0b0ff0a
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/iosdesigner/iosideintf.pas
View File

@ -72,6 +72,7 @@ implementation
uses
LazIDEIntf, Controls, iOS_Views, iOSXIBResource, UnitResources,
LazFilesUtils,
sysutils,
FileUtil;
procedure register;
@ -93,13 +94,15 @@ end;
procedure TiOSShowInXCode.ExecuteVerb(Index: Integer);
var
s: string;
ProjFile: TLazProjectFile;
begin
If Index<FStartIndex then
inherited ExecuteVerb(Index)
else
case (Index-FstartIndex) of
0 : begin
s := '/Users/joost/svn/testlrs/onzin/appdelegate_iphoneu.xib';
ProjFile := LazarusIDE.GetProjectFileWithRootComponent(Component);
s := ChangeFileExt(ProjFile.Filename,'.xib');
if FileExistsUTF8(s) then ExecCmdLineNoWait('open "'+s+'"');
end;
end;