[perl-Gtk3] Automatically set up Pango



commit 425b93c1bd18d7d41a1504e61760f4da37db4469
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Fri Oct 14 20:12:34 2011 +0200

    Automatically set up Pango

 lib/Gtk3.pm |    9 +++++++++
 1 files changed, 9 insertions(+), 0 deletions(-)
---
diff --git a/lib/Gtk3.pm b/lib/Gtk3.pm
index 2475e24..4ef3f8b 100644
--- a/lib/Gtk3.pm
+++ b/lib/Gtk3.pm
@@ -26,6 +26,10 @@ my $_GDK_BASENAME = 'Gdk';
 my $_GDK_VERSION = '3.0';
 my $_GDK_PACKAGE = 'Gtk3::Gdk';
 
+my $_PANGO_BASENAME = 'Pango';
+my $_PANGO_VERSION = '1.0';
+my $_PANGO_PACKAGE = 'Pango';
+
 sub import {
   my $class = shift;
 
@@ -41,6 +45,11 @@ sub import {
     version => $_GDK_VERSION,
     package => $_GDK_PACKAGE);
 
+  Glib::Object::Introspection->setup (
+    basename => $_PANGO_BASENAME,
+    version => $_PANGO_VERSION,
+    package => $_PANGO_PACKAGE);
+
   my $init = 0;
   my @unknown_args = ($class);
   foreach (@_) {



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