[perl-Gtk3] Hush some warnings from Gtk3::show_about_dialog



commit f9362c51da6a56647e3cb55ac262ce3bfe8a07cd
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Sat Feb 9 23:04:35 2013 +0100

    Hush some warnings from Gtk3::show_about_dialog

 lib/Gtk3.pm |    6 ++----
 1 files changed, 2 insertions(+), 4 deletions(-)
---
diff --git a/lib/Gtk3.pm b/lib/Gtk3.pm
index a817d8e..841f99a 100644
--- a/lib/Gtk3.pm
+++ b/lib/Gtk3.pm
@@ -310,10 +310,8 @@ sub Gtk3::main_quit {
 
     if (!$dialog) {
       $dialog = Gtk3::AboutDialog->new;
-      $dialog->signal_connect (delete_event => \&Gtk3::Widget::hide_on_delete);
-      # FIXME: We can't actually do this fully correctly, because the license
-      # and credits subdialogs are private.
-      $dialog->signal_connect (response => \&Gtk3::Widget::hide);
+      $dialog->signal_connect (delete_event => sub { $dialog->hide_on_delete });
+      $dialog->signal_connect (response => sub { $dialog->hide });
       foreach my $prop (keys %props) {
         $dialog->set ($prop => $props{$prop});
       }


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]