From de98e7e7e1bcccf2c16461d4231e8ccc660092e8 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 16 May 2006 12:12:20 +0000
Subject: (interactive_list) enable one to cancel selecting packages if he
 believes it ended in selecting way too much packages

---
 rpmdrake.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/rpmdrake.pm b/rpmdrake.pm
index 3c31340d..bf837af1 100644
--- a/rpmdrake.pm
+++ b/rpmdrake.pm
@@ -274,7 +274,10 @@ sub interactive_list {
 	    Gtk2::Label->new($contents),
 	    int(@$list) > 8 ? gtkset_size_request(create_scrolled_window($vbradios), 250, 320) : $vbradios,
 	    gtkpack__(
-		create_hbox(), gtksignal_connect(
+		create_hbox(),
+          gtksignal_connect(
+		    Gtk2::Button->new(N("Cancel")), clicked => sub { Gtk2->main_quit }),
+          gtksignal_connect(
 		    Gtk2::Button->new(N("Ok")), clicked => sub {
 			each_index { $_->get_active and $choice = $::i } @radios;
 			Gtk2->main_quit;
-- 
cgit v1.2.1