diff options
| -rw-r--r-- | rpmdrake.pm | 2 |
1 files changed, 2 insertions, 0 deletions
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; |