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 db82349f9dd426ff185f95247a090bbcf754b896
Author: Clément Hermann (nodens) <nod...@nodens.org>
Date:   Sat Dec 6 21:26:20 2014 +0100

    add a parameter (dialog parent window) to app_exit()
---
 bin/openpgp-applet | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/bin/openpgp-applet b/bin/openpgp-applet
index e3d70bf..3d4e151 100755
--- a/bin/openpgp-applet
+++ b/bin/openpgp-applet
@@ -156,7 +156,8 @@ sub all_clipboards {
 }
 
 sub app_exit {
-    my $dialog = Gtk2::MessageDialog->new($main_window, [qw/modal 
destroy-with-parent/],
+    my $parent = shift;
+    my $dialog = Gtk2::MessageDialog->new($parent, [qw/modal 
destroy-with-parent/],
                                    'warning',
                                    'yes-no',
                                    $encoding->decode(__("You are about to exit 
OpenPGP Applet. Are you sure?")));
@@ -175,7 +176,7 @@ sub build_statusicon {
 
     my $menu   = Gtk2::Menu->new;
     my $mexit  = Gtk2::MenuItem->new($encoding->decode(__("Exit")));
-    $mexit->signal_connect('activate' => sub { app_exit(); });
+    $mexit->signal_connect('activate' => sub { app_exit($main_window); });
     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

Reply via email to