[perl-Gtk3] Automatically set up Gtk3::Gdk
- From: Torsten SchÃnfeld <tsch src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [perl-Gtk3] Automatically set up Gtk3::Gdk
- Date: Sat, 10 Sep 2011 21:59:26 +0000 (UTC)
commit 362f4e95a8ca9edb90c8f788c5523f9ef87fce58
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date: Sat Sep 10 23:52:33 2011 +0200
Automatically set up Gtk3::Gdk
lib/Gtk3.pm | 9 +++++++++
1 files changed, 9 insertions(+), 0 deletions(-)
---
diff --git a/lib/Gtk3.pm b/lib/Gtk3.pm
index 7546909..6d7d982 100644
--- a/lib/Gtk3.pm
+++ b/lib/Gtk3.pm
@@ -19,6 +19,10 @@ my @_GTK_HANDLE_SENTINEL_BOOLEAN_FOR = qw/
Gtk3::TreeSelection::get_selected
/;
+my $_GDK_BASENAME = 'Gdk';
+my $_GDK_VERSION = '3.0';
+my $_GDK_PACKAGE = 'Gtk3::Gdk';
+
sub import {
my $class = shift;
@@ -29,6 +33,11 @@ sub import {
flatten_array_ref_return_for => \ _GTK_FLATTEN_ARRAY_REF_RETURN_FOR,
handle_sentinel_boolean_for => \ _GTK_HANDLE_SENTINEL_BOOLEAN_FOR);
+ Glib::Object::Introspection->setup (
+ basename => $_GDK_BASENAME,
+ version => $_GDK_VERSION,
+ package => $_GDK_PACKAGE);
+
my $init = 0;
my @unknown_args = ($class);
foreach (@_) {
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]