summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-02-23 01:22:50 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-02-23 01:22:50 +0000
commit6cdfc6933229691d2c3aed9fedd22496751e3e30 (patch)
tree27fa1939dd10a1144d336ea31ca8d3a2adb43969 /perl-install/interactive_gtk.pm
parent17cb15c0d7be0377a98d14569c64cf35aab3215a (diff)
downloaddrakx-6cdfc6933229691d2c3aed9fedd22496751e3e30.tar
drakx-6cdfc6933229691d2c3aed9fedd22496751e3e30.tar.gz
drakx-6cdfc6933229691d2c3aed9fedd22496751e3e30.tar.bz2
drakx-6cdfc6933229691d2c3aed9fedd22496751e3e30.tar.xz
drakx-6cdfc6933229691d2c3aed9fedd22496751e3e30.zip
(ask_from_entries_refW): double clicking on list means 'Ok'
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 140f25bcc..dd19722c6 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -360,6 +360,10 @@ sub ask_from_entries_refW {
} else {
($w, $set) = create_clist($e, $may_go_to_next, $changed);
}
+ if (@$l == 1) {
+ #- i'm the only one, double click means accepting
+ $w->signal_connect(button_press_event => sub { if ($_[1]{type} =~ /^2/) { $mainw->{retval} = 1; Gtk->main_quit } });
+ }
if (@{$e->{list}} > 4) {
$has_scroll = 1;
$expand = 1;