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) <nod...@nodens.org> 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