From 9fe1e15f6191fe02804bc745673ba04dee65b1d8 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 22 Mar 2007 14:55:19 +0000 Subject: (interactive_list) handle "nocancel" option in order not to show "cancel" button --- rpmdrake.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/rpmdrake.pm b/rpmdrake.pm index 83d8e6df..33fd65ef 100644 --- a/rpmdrake.pm +++ b/rpmdrake.pm @@ -297,8 +297,10 @@ sub interactive_list { int(@$list) > 8 ? gtkset_size_request(create_scrolled_window($vbradios), 250, 320) : $vbradios, gtkpack__( create_hbox(), + if_(!$options{nocancel}, 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; -- cgit v1.2.1