From efe3ab437e9819167e1d59aed1e50698d13c9659 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:41:20 +0000
Subject: [PATCH] added exception handling for createpixmapindirect

git-svn-id: trunk@2394 -
---
 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 5965d67639..11c428ca14 100644
--- a/lcl/interfaces/gtk/gtkproc.pp
+++ b/lcl/interfaces/gtk/gtkproc.pp
@@ -400,7 +400,7 @@ function IndexOfStyle(const WName : String): integer;
 Procedure ReleaseStyle(const WName : String);
 function GetStyle(const WName : String) : PGTKStyle;
 Function GetStyleWidget(WName : String) : PGTKWidget;
-function GetDefaultFont : PGDKFont;
+function LoadDefaultFont: PGDKFont;
 Function GetSysGCValues(Color : TColorRef) : TGDKGCValues;
 
 Function DeleteAmpersands(var Str : String) : Longint;