Same as the previous patch but with the proper gtk version check. Please, if something is wrong comment it to me as soon as possible as I will start to do the others modules.
-- Emmanuel Rodriguez
Index: xs/GtkCellView.xs =================================================================== --- xs/GtkCellView.xs (revision 2104) +++ xs/GtkCellView.xs (working copy) @@ -66,3 +66,9 @@ } else XSRETURN_EMPTY; + +#if GTK_CHECK_VERSION (2, 16, 0) + +GtkTreeModel_ornull * gtk_cell_view_get_model (GtkCellView * cellview); + +#endif /* 2.16 */ Index: t/GtkCellView.t =================================================================== --- t/GtkCellView.t (revision 2104) +++ t/GtkCellView.t (working copy) @@ -12,7 +12,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 +25,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, 16, 0); + 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 +46,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, 16, 0); + is($cview->get_model(), $model, '$cview->get_model'); +} my $treepath = Gtk2::TreePath->new_from_string ('0'); $cview->set_displayed_row ($treepath);
_______________________________________________ gtk-perl-list mailing list gtk-perl-list@gnome.org http://mail.gnome.org/mailman/listinfo/gtk-perl-list