From 40e6252d7ab5d28b7a3dbb03d064e4f52badfe67 Mon Sep 17 00:00:00 2001
From: ajgenius <ajgenius@lazarus-ide.org>
Date: Sat, 17 Aug 2002 23:41:31 +0000
Subject: [PATCH] fix for GTK, made dialog=toplevel

git-svn-id: trunk@2611 -
---
 lcl/interfaces/gtk/gtkglobals.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk/gtkglobals.pp b/lcl/interfaces/gtk/gtkglobals.pp
index 947484e9f9..943a79e20f 100644
--- a/lcl/interfaces/gtk/gtkglobals.pp
+++ b/lcl/interfaces/gtk/gtkglobals.pp
@@ -128,6 +128,7 @@ const
   ); {end _SysColors}
 
 const
+  {$ifdef GTK2}GTK_WINDOW_DIALOG=GTK_WINDOW_TOPLEVEL;{$endif}
   FormStyleMap : array[TFormBorderStyle] of TGtkWindowType = (
     GTK_WINDOW_DIALOG,  // bsNone
     GTK_WINDOW_TOPLEVEL,// bsSingle
@@ -161,7 +162,7 @@ type
     signal_id:        guint16;
     func:             TGtkSignalFunc;
     func_data:        gpointer;
-    destroy_func:     TGtkSignalDestroy;
+    destroy_func:     {$ifdef GTK2}TGtkSignalFunc{$else}TGtkSignalDestroy{$endif};
   end;
 
 const