perl-Gtk2 r2114 - in trunk: . t xs

[tsch svn gnome org]

Author: tsch
Date: Sun Jan 18 16:41:33 2009
New Revision: 2114
URL: http://svn.gnome.org/viewvc/perl-Gtk2?rev=2114&view=rev

Log:
Wrap new API.  Patch by Emmanuel Rodriguez.


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

Modified: trunk/t/GtkPrintSettings.t
==============================================================================
--- trunk/t/GtkPrintSettings.t	(original)
+++ trunk/t/GtkPrintSettings.t	Sun Jan 18 16:41:33 2009
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 use Gtk2::TestHelper
-  tests => 20,
+  tests => 26,
   at_least_version => [2, 10, 0, 'GtkPrintSettings: it is new in 2.10'];
 
 # $Id$
@@ -112,6 +112,23 @@
   unlink $file;
 }
 
+SKIP: {
+  skip 'new 2.16 stuff', 6
+    unless Gtk2->CHECK_VERSION(2, 15, 0); # FIXME: 2.16
+
+  my $settings = Gtk2::PrintSettings -> new();
+
+  is($settings -> get_printer_lpi(), 0);
+  $settings -> set_printer_lpi(3.1416);
+  delta_ok($settings -> get_printer_lpi(), 3.1416);
+
+  is($settings -> get_resolution_x(), 0);
+  is($settings -> get_resolution_y(), 0);
+  $settings -> set_resolution_xy(10, 20);
+  is($settings -> get_resolution_x(), 10);
+  is($settings -> get_resolution_y(), 20);
+}
+
 __END__
 
 Copyright (C) 2006 by the gtk2-perl team (see the file AUTHORS for the

Modified: trunk/xs/GtkPrintSettings.xs
==============================================================================
--- trunk/xs/GtkPrintSettings.xs	(original)
+++ trunk/xs/GtkPrintSettings.xs	Sun Jan 18 16:41:33 2009
@@ -120,3 +120,17 @@
 		gperl_croak_gerror (NULL, error);
 
 #endif /* 2.14 */
+
+#if GTK_CHECK_VERSION (2, 15, 0) /* FIXME: 2.16 */
+
+gdouble gtk_print_settings_get_printer_lpi (GtkPrintSettings *settings);
+
+gint gtk_print_settings_get_resolution_x (GtkPrintSettings *settings);
+
+gint gtk_print_settings_get_resolution_y (GtkPrintSettings *settings);
+
+void gtk_print_settings_set_printer_lpi  (GtkPrintSettings *settings, gdouble lpi);
+
+void gtk_print_settings_set_resolution_xy (GtkPrintSettings *settings, gint resolution_x, gint resolution_y);
+
+#endif /* 2.16 */