perl-Gtk2 r2107 - in trunk: . t xs

[tsch svn gnome org]

Author: tsch
Date: Tue Jan 13 20:25:49 2009
New Revision: 2107
URL: http://svn.gnome.org/viewvc/perl-Gtk2?rev=2107&view=rev

Log:
Wrap gtk_cell_view_get_model.  Patch by Emmanuel Rodriguez.


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

Modified: trunk/t/GtkCellView.t
==============================================================================
--- trunk/t/GtkCellView.t	(original)
+++ trunk/t/GtkCellView.t	Tue Jan 13 20:25:49 2009
@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 #
 # $Id$
 #
@@ -12,7 +13,7 @@
 use strict;
 use warnings;
 
-use Gtk2::TestHelper tests => 10,
+use Gtk2::TestHelper tests => 12,
     at_least_version => [2, 6, 0, "GtkCellView is new in 2.6"],
     ;
 
@@ -25,6 +26,11 @@
 isa_ok (my $cview = Gtk2::CellView->new, 'Gtk2::CellView',
 	'Gtk2::CellView->new');
 
+SKIP: {
+	skip 'new 2.16 stuff', 1 unless Gtk2->CHECK_VERSION(2, 15, 0); # FIXME: 2.16
+	is($cview->get_model(), undef, '$cview->get_model is undef');
+}
+
 ginterfaces_ok($cview);
 
 isa_ok ($cview = Gtk2::CellView->new_with_text ('text'), 'Gtk2::CellView',
@@ -41,7 +47,11 @@
 fill_store ($model, get_pixbufs ($win));
 
 ok (eval { $cview->set_model ($model); 1; }, '$cview->set_model');
-# there is no get, or property???
+# there is a get (new since gtk 2.16) !!!!
+SKIP: {
+	skip 'new 2.16 stuff', 1 unless Gtk2->CHECK_VERSION(2, 15, 0); # FIXME: 2.16
+	is($cview->get_model(), $model, '$cview->get_model');
+}
 
 my $treepath = Gtk2::TreePath->new_from_string ('0');
 $cview->set_displayed_row ($treepath);

Modified: trunk/xs/GtkCellView.xs
==============================================================================
--- trunk/xs/GtkCellView.xs	(original)
+++ trunk/xs/GtkCellView.xs	Tue Jan 13 20:25:49 2009
@@ -66,3 +66,9 @@
 	}
 	else
 		XSRETURN_EMPTY;
+
+#if GTK_CHECK_VERSION (2, 15, 0) /* FIXME: 2.16 */
+
+GtkTreeModel_ornull * gtk_cell_view_get_model (GtkCellView * cellview);
+
+#endif /* 2.16 */