From 3c11932412535dbbcca0a8acf76ce1034e78693b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 1 Oct 2009 11:32:37 +0000
Subject: (real_quit) warn on exit if some packages are selected (#45404)

---
 Rpmdrake/gui.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'Rpmdrake/gui.pm')

diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
index 9b63ddb8..05240dd1 100644
--- a/Rpmdrake/gui.pm
+++ b/Rpmdrake/gui.pm
@@ -65,6 +65,7 @@ our @EXPORT = qw(
                     is_locale_available
                     node_state
                     pkgs_provider
+                    real_quit
                     reset_search
                     set_node_state
                     sort_callback
@@ -803,6 +804,13 @@ sub is_there_selected_packages() {
     int(grep { $pkgs->{$_}{selected} } keys %$pkgs)
 }
 
+sub real_quit() {
+    if (is_there_selected_packages()) {
+        interactive_msg(N("Some packages are selected."), N("Some packages are selected.") . "\n" . N("Do you really want to quit?"), yesno => 1) or return;
+    }
+    Gtk2->main_quit;
+}
+
 sub do_action__real {
     my ($options, $callback_action, $o_info) = @_;
     require urpm::sys;
-- 
cgit v1.2.1