diff options
| -rw-r--r-- | perl-install/ugtk2.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index fd800fb25..b16e682bd 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -946,10 +946,13 @@ sub _create_window { %options); if ($force_focus) { + #- force keyboard focus instead of mouse focus (useful when we have no Window Manager) (my $previous_current_window, $ugtk2::current_window) = ($ugtk2::current_window, $w); $w->signal_connect(expose_event => \&_XSetInputFocus); $w->signal_connect(destroy => sub { $ugtk2::current_window = $previous_current_window }); } + + #- when the window is closed using the window manager "X" button (or alt-f4) $w->signal_connect(delete_event => sub { if ($::isWizard) { $w->destroy; |