summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-11 08:07:10 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-11 08:07:10 +0000
commit8cb3b6a0c869c3b95fd09f7aab5fe4a8b8b39425 (patch)
tree4c20f68ada6e4eeb2d009e1276fd5b84c726b8a9 /perl-install
parent9982ba2abd0ebdd8072ea8a67ed9c75ca6235ee4 (diff)
downloaddrakx-8cb3b6a0c869c3b95fd09f7aab5fe4a8b8b39425.tar
drakx-8cb3b6a0c869c3b95fd09f7aab5fe4a8b8b39425.tar.gz
drakx-8cb3b6a0c869c3b95fd09f7aab5fe4a8b8b39425.tar.bz2
drakx-8cb3b6a0c869c3b95fd09f7aab5fe4a8b8b39425.tar.xz
drakx-8cb3b6a0c869c3b95fd09f7aab5fe4a8b8b39425.zip
add comments
Diffstat (limited to 'perl-install')
-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;