From 02b3856fd05898ce99cbecdab17edec1ba5e63e8 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 17 Aug 2002 23:41:05 +0000
Subject: [PATCH] MG: impoved focussing, unfocussing on destroy and fixed unit
 search

git-svn-id: trunk@2182 -
---
 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 f10ceea0cb..1bace11a45 100644
--- a/lcl/interfaces/gtk/gtkproc.pp
+++ b/lcl/interfaces/gtk/gtkproc.pp
@@ -240,7 +240,7 @@ procedure GetGTKKeyInfo(const Event: PGDKEventKey; var KeyCode,VirtualKey: Word;
   var SysKey, Extended, Toggle: Boolean);
 procedure StoreCommonDialogSetup(ADialog: TCommonDialog);
 procedure DestroyCommonDialogAddOns(ADialog: TCommonDialog);
-function ObjectToGTKObject(const AObject: TObject): gtk_object;
+function ObjectToGTKObject(const AObject: TObject): PGtkObject;
 function GetMainWidget(const Widget: Pointer): Pointer;
 procedure SetMainWidget(const ParentWidget, ChildWidget: Pointer);
 function GetFixedWidget(const Widget: Pointer): Pointer;