[perl-Gtk3] Hush some warnings from Gtk3::show_about_dialog
- From: Torsten SchÃnfeld <tsch src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [perl-Gtk3] Hush some warnings from Gtk3::show_about_dialog
- Date: Sat, 9 Feb 2013 22:09:25 +0000 (UTC)
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]