[perl-Gtk3] Automatically set up Gtk3::Gdk



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]