[openpgp-applet] 49/61: Add confirmation dialog on exit
This is an automated email from the git hooks/post-receive script.
nodens-guest pushed a commit to annotated tag OpenPGP_Applet-0.9
in repository openpgp-applet.
commit 5d324c5388e1df61bb5c123490a35144f9ec90d4
Author: Clément Hermann (nodens)
Date: Sat Nov 29 13:17:02 2014 +0100
Add confirmation dialog on exit
Simple MessageDialog Gtk2 object, default to no.
Fixes #8319 : Tails OpenPGP Applet : Add a confirmation dialog on exit
---
bin/openpgp-applet | 14 +-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/bin/openpgp-applet b/bin/openpgp-applet
index 7178e03..e3d70bf 100755
--- a/bin/openpgp-applet
+++ b/bin/openpgp-applet
@@ -155,6 +155,18 @@ sub all_clipboards {
}
}
+sub app_exit {
+my $dialog = Gtk2::MessageDialog->new($main_window, [qw/modal
destroy-with-parent/],
+ 'warning',
+ 'yes-no',
+ $encoding->decode(__("You are about to exit
OpenPGP Applet. Are you sure?")));
+
+$dialog->set_default_response('no');
+Gtk2->main_quit if ($dialog->run eq 'yes');
+
+$dialog->destroy;
+}
+
sub build_statusicon {
my $icon = Gtk2::StatusIcon->new;
$icon->set_visible(FALSE);
@@ -163,7 +175,7 @@ sub build_statusicon {
my $menu = Gtk2::Menu->new;
my $mexit = Gtk2::MenuItem->new($encoding->decode(__("Exit")));
-$mexit->signal_connect('activate' => sub { Gtk2->main_quit; });
+$mexit->signal_connect('activate' => sub { app_exit(); });
my $mabout = Gtk2::MenuItem->new($encoding->decode(__("About")));
$mabout->signal_connect('activate' => sub { Gtk2->show_about_dialog(
$main_window,
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/openpgp-applet.git
___
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
[openpgp-applet] 49/61: Add confirmation dialog on exit
This is an automated email from the git hooks/post-receive script.
nodens-guest pushed a commit to annotated tag OpenPGP_Applet-0.9
in repository openpgp-applet.
commit 5d324c5388e1df61bb5c123490a35144f9ec90d4
Author: Clément Hermann (nodens)
Date: Sat Nov 29 13:17:02 2014 +0100
Add confirmation dialog on exit
Simple MessageDialog Gtk2 object, default to no.
Fixes #8319 : Tails OpenPGP Applet : Add a confirmation dialog on exit
---
bin/openpgp-applet | 14 +-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/bin/openpgp-applet b/bin/openpgp-applet
index 7178e03..e3d70bf 100755
--- a/bin/openpgp-applet
+++ b/bin/openpgp-applet
@@ -155,6 +155,18 @@ sub all_clipboards {
}
}
+sub app_exit {
+my $dialog = Gtk2::MessageDialog->new($main_window, [qw/modal
destroy-with-parent/],
+ 'warning',
+ 'yes-no',
+ $encoding->decode(__("You are about to exit
OpenPGP Applet. Are you sure?")));
+
+$dialog->set_default_response('no');
+Gtk2->main_quit if ($dialog->run eq 'yes');
+
+$dialog->destroy;
+}
+
sub build_statusicon {
my $icon = Gtk2::StatusIcon->new;
$icon->set_visible(FALSE);
@@ -163,7 +175,7 @@ sub build_statusicon {
my $menu = Gtk2::Menu->new;
my $mexit = Gtk2::MenuItem->new($encoding->decode(__("Exit")));
-$mexit->signal_connect('activate' => sub { Gtk2->main_quit; });
+$mexit->signal_connect('activate' => sub { app_exit(); });
my $mabout = Gtk2::MenuItem->new($encoding->decode(__("About")));
$mabout->signal_connect('activate' => sub { Gtk2->show_about_dialog(
$main_window,
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/openpgp-applet.git
___
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
