summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/ugtk2.pm3
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;