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

gtk2: fix showing of modal windows (issue #0015392)

Browse Source 
git-svn-id: trunk@23220 -
This commit is contained in:
paul 2009-12-22 02:45:31 +00:00
parent 26d98c9a47
commit 00caf2a35c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkwscontrols.pp
View File

@ -731,9 +731,11 @@ begin
{$IFNDEF gtk_no_set_modal} {$IFNDEF gtk_no_set_modal}
gtk_window_set_modal(GtkWindow, true); gtk_window_set_modal(GtkWindow, true);
{$ENDIF} {$ENDIF}
gtk_widget_show(PGtkWidget(GtkWindow));
{$IFDEF Gtk1} {$IFDEF Gtk1}
gtk_widget_show(PGtkWidget(GtkWindow));
GDK_WINDOW_ACTIVATE(PGdkWindowPrivate(PGtkWidget(GtkWindow)^.window)); GDK_WINDOW_ACTIVATE(PGdkWindowPrivate(PGtkWidget(GtkWindow)^.window));
{$ELSE}
gtk_window_present(GtkWindow);
{$ENDIF} {$ENDIF}
{$IFDEF VerboseTransient} {$IFDEF VerboseTransient}