From 8cb3b6a0c869c3b95fd09f7aab5fe4a8b8b39425 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 11 Jan 2005 08:07:10 +0000 Subject: add comments --- perl-install/ugtk2.pm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'perl-install/ugtk2.pm') 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; -- cgit v1.2.1