perl-Pango r12 - in trunk: . t xs

[tsch svn gnome org]

Author: tsch
Date: Mon Nov 24 09:11:39 2008
New Revision: 12
URL: http://svn.gnome.org/viewvc/perl-Pango?rev=12&view=rev

Log:
Wrap pango_layout_get_baseline.  Patch by Thierry Vignaud.


Modified:
   trunk/ChangeLog
   trunk/t/PangoLayout.t
   trunk/xs/PangoLayout.xs

Modified: trunk/t/PangoLayout.t
==============================================================================
--- trunk/t/PangoLayout.t	(original)
+++ trunk/t/PangoLayout.t	Mon Nov 24 09:11:39 2008
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use lib qw(t/inc);
-use PangoTestHelper need_gtk => 1, tests => 71;
+use PangoTestHelper need_gtk => 1, tests => 72;
 
 my $label = Gtk2::Label -> new("Bla");
 my $context = $label -> create_pango_context();
@@ -213,6 +213,15 @@
   is($layout -> get_height(), 23);
 }
 
+SKIP: {
+  skip 'new 1.22 stuff', 0
+    unless Pango->CHECK_VERSION(1, 22, 0);
+
+  my $font = Pango::FontDescription -> from_string('Sans 12');
+  $layout -> set_font_description($font);
+  like($layout -> get_baseline(), $number);
+}
+
 __END__
 
 Copyright (C) 2003-2005 by the gtk2-perl team (see the file AUTHORS for the

Modified: trunk/xs/PangoLayout.xs
==============================================================================
--- trunk/xs/PangoLayout.xs	(original)
+++ trunk/xs/PangoLayout.xs	Mon Nov 24 09:11:39 2008
@@ -522,6 +522,12 @@
 
 #endif
 
+#if PANGO_CHECK_VERSION (1, 22, 0)
+
+int pango_layout_get_baseline (PangoLayout*layout)
+
+#endif
+
 # --------------------------------------------------------------------------- #
 
 MODULE = Pango::Layout	PACKAGE = Pango::LayoutLine	PREFIX = pango_layout_line_