From 9c62e32f73f8137089047e645102cfde6b2ef4b9 Mon Sep 17 00:00:00 2001 From: loesje_ Date: Sun, 17 Feb 2013 11:44:38 +0000 Subject: [PATCH] * Changes for Lazarus-trunk git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2688 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/iosdesigner/iosxibresource.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/components/iosdesigner/iosxibresource.pas b/components/iosdesigner/iosxibresource.pas index 4f3848eed..b3dca6731 100644 --- a/components/iosdesigner/iosxibresource.pas +++ b/components/iosdesigner/iosxibresource.pas @@ -18,7 +18,7 @@ type public class function FindResourceDirective(Source: TObject): boolean; override; class function ResourceDirectiveFilename: string; override; - class function GetUnitResourceFilename(AUnitFilenae: string): string; override; + class function GetUnitResourceFilename(AUnitFilename: string; Loading: boolean): string; override; class procedure TextStreamToBinStream(ATxtStream, ABinStream: TExtMemoryStream); override; class procedure BinStreamToTextStream(ABinStream, ATextStream: TExtMemoryStream); override; class function GetClassNameFromStream(s: TStream; out IsInherited: Boolean): shortstring; override; @@ -55,9 +55,9 @@ begin end; class function TXIBResourcefileFormat.GetUnitResourceFilename( - AUnitFilenae: string): string; + AUnitFilename: string; Loading: boolean): string; begin - result := ChangeFileExt(AUnitFilenae,'.xib'); + result := ChangeFileExt(AUnitFilename,'.xib'); end; class procedure TXIBResourcefileFormat.TextStreamToBinStream(ATxtStream,