summaryrefslogtreecommitdiffstats
path: root/gurpmi.pm
diff options
context:
space:
mode:
Diffstat (limited to 'gurpmi.pm')
-rw-r--r--gurpmi.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/gurpmi.pm b/gurpmi.pm
index 64a5d023..f52ac553 100644
--- a/gurpmi.pm
+++ b/gurpmi.pm
@@ -31,7 +31,7 @@ URPM::bind_rpm_textdomain_codeset();
use Exporter;
our @ISA = qw(Exporter);
-our @EXPORT = qw(create_scrolled_window fatal but quit add_button_box new_label N);
+our @EXPORT = qw(create_scrolled_window fatal but cancel_n_quit quit add_button_box new_label N);
urpm::select::add_packages_to_priority_upgrade_list('gurpmi');
@@ -112,6 +112,11 @@ sub quit () {
}
}
+sub cancel_n_quit () {
+ Gtk2->main_quit;
+ exit(1);
+}
+
sub add_button_box {
my ($vbox, @buttons) = @_;
my $hbox = Gtk2::HButtonBox->new;