paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-24 20:02:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix for GTK, made dialog=toplevel

Browse Source 
git-svn-id: trunk@2611 -
This commit is contained in:
ajgenius 2002-08-17 23:41:31 +00:00
parent 2f268b9eca
commit 40e6252d7a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/gtk/gtkglobals.pp
View File

@ -128,6 +128,7 @@ const
); {end _SysColors} ); {end _SysColors}
const const
{$ifdef GTK2}GTK_WINDOW_DIALOG=GTK_WINDOW_TOPLEVEL;{$endif}
FormStyleMap : array[TFormBorderStyle] of TGtkWindowType = ( FormStyleMap : array[TFormBorderStyle] of TGtkWindowType = (
GTK_WINDOW_DIALOG, // bsNone GTK_WINDOW_DIALOG, // bsNone
GTK_WINDOW_TOPLEVEL,// bsSingle GTK_WINDOW_TOPLEVEL,// bsSingle
@ -161,7 +162,7 @@ type
signal_id: guint16; signal_id: guint16;
func: TGtkSignalFunc; func: TGtkSignalFunc;
func_data: gpointer; func_data: gpointer;
destroy_func: TGtkSignalDestroy; destroy_func: {$ifdef GTK2}TGtkSignalFunc{$else}TGtkSignalDestroy{$endif};
end; end;
const const