diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-01-11 08:07:10 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-01-11 08:07:10 +0000 |
| commit | 8cb3b6a0c869c3b95fd09f7aab5fe4a8b8b39425 (patch) | |
| tree | 4c20f68ada6e4eeb2d009e1276fd5b84c726b8a9 /perl-install | |
| parent | 9982ba2abd0ebdd8072ea8a67ed9c75ca6235ee4 (diff) | |
| download | drakx-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.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; |