From aad0b0ff0a1ae5f399be6b238c4f219ccfc2cf96 Mon Sep 17 00:00:00 2001
From: loesje_ <loesje_@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 13 Feb 2013 20:23:04 +0000
Subject: [PATCH]  * Removed hardcoded path to xib-file to be opened in Xcode

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2680 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/iosdesigner/iosideintf.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/components/iosdesigner/iosideintf.pas b/components/iosdesigner/iosideintf.pas
index ef6f7230c..f341c51e6 100644
--- a/components/iosdesigner/iosideintf.pas
+++ b/components/iosdesigner/iosideintf.pas
@@ -72,6 +72,7 @@ implementation
 uses
   LazIDEIntf, Controls, iOS_Views, iOSXIBResource, UnitResources,
   LazFilesUtils,
+  sysutils,
   FileUtil;
 
 procedure register;
@@ -93,14 +94,16 @@ 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';
-          if FileExistsUTF8(s) then ExecCmdLineNoWait('open "'+s +'"');
+          ProjFile := LazarusIDE.GetProjectFileWithRootComponent(Component);
+          s := ChangeFileExt(ProjFile.Filename,'.xib');
+          if FileExistsUTF8(s) then ExecCmdLineNoWait('open "'+s+'"');
           end;
     end;
 end;