From 6cdfc6933229691d2c3aed9fedd22496751e3e30 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 23 Feb 2001 01:22:50 +0000
Subject: (ask_from_entries_refW): double clicking on list means 'Ok'

---
 perl-install/interactive_gtk.pm | 4 ++++
 1 file changed, 4 insertions(+)

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;
-- 
cgit v1.2.1