From 4a2a7699573fbee115fbb5ad46ec4916dbe06c22 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Wed, 1 Jun 2005 09:52:14 +0000
Subject: [PATCH] fixed compilation.

git-svn-id: trunk@7215 -
---
 lcl/interfaces/gtk/gtkproc.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk/gtkproc.pp b/lcl/interfaces/gtk/gtkproc.pp
index 9ed9e61827..dd86ffc022 100644
--- a/lcl/interfaces/gtk/gtkproc.pp
+++ b/lcl/interfaces/gtk/gtkproc.pp
@@ -724,7 +724,7 @@ Procedure GetTextExtentIgnoringAmpersands(FontDesc: PPangoFontDescription; Str:
 function FontIsDoubleByteCharsFont(TheFont: PGdkFont): boolean;
 {$IFDEF GTK1}
 function LoadDefaultFont: PGDKFont;
-Procedure GetTextExtentIgnoringAmpersands(Font: PGDKFont; Str: PChar;
+Procedure GetTextExtentIgnoringAmpersands(FontDesc: PGDKFont; Str: PChar;
   LineLength: Longint; lbearing, rbearing, width, ascent, descent: Pgint);
 {$EndIf}
 function GetDefaultFontName: string;