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

7
components/iosdesigner/iosideintf.pas
View File

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