[perl-Gtk3] Automatically set up Pango
- From: Torsten SchÃnfeld <tsch src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [perl-Gtk3] Automatically set up Pango
- Date: Fri, 14 Oct 2011 18:35:42 +0000 (UTC)
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]