From 0833944b0b78527132d7dd14db26f2db8ecf1473 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 13 Dec 2012 15:21:28 +0000
Subject: (quit_popup) popup a dialog confirming to quit when clicking "X"
 (mga#1812)

to be manually called from delete_event callback in pure gtk+ cases (eg: mcc)
---
 perl-install/mygtk2.pm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to 'perl-install/mygtk2.pm')

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 89bcf33f0..1f97b02d6 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -1212,9 +1212,23 @@ sub mygtk2::MagicWindow::AUTOLOAD {
     $w->{$s1}->$meth(@args);
 }
 
+state $in_callback;
+sub quit_popup() {
+   if (!$in_callback) {
+	$in_callback = 1;
+	my $_guard = before_leaving { undef $in_callback };
+	require ugtk2;
+	my $w = ugtk2->new(N("Confirmation"), grab => 1);
+	ugtk2::_ask_okcancel($w, N("Are you sure you want to quit?"), N("Quit"), N("Cancel"));
+	my $ret = ugtk2::main($w);
+	return 1 if !$ret;
+    }
+}
+
 sub quit_callback { 
     my ($w) = @_;
-
+    
+    return 1 if quit_popup();
     if ($::isWizard) {
 	$w->destroy; 
 	die 'wizcancel';
-- 
cgit v1.2.1