>From 6ab0f6faffdb296069cb75aa6352168a2b47b15e Mon Sep 17 00:00:00 2001 From: Quentin Sculo Date: Tue, 13 Apr 2010 19:28:05 +0200 Subject: [PATCH 12/16] wrap gtk_range_[gs]et_flippable (new in gtk+-2.18) --- t/GtkRange.t | 10 +++++++++- xs/GtkRange.xs | 9 +++++++++ 2 files changed, 18 insertions(+), 1 deletions(-) diff --git a/t/GtkRange.t b/t/GtkRange.t index e1435f1..7b80e14 100644 --- a/t/GtkRange.t +++ b/t/GtkRange.t @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # vim: set ft=perl : use strict; -use Gtk2::TestHelper tests => 10; +use Gtk2::TestHelper tests => 11; # $Id$ @@ -50,6 +50,14 @@ SKIP: { delta_ok($range -> get_fill_level(), 0.23); } +SKIP: { + skip 'new stuff in 2.18', 1 + unless Gtk2 -> CHECK_VERSION(2, 18, 0); + + $range -> set_flippable(TRUE); + ok($range -> get_flippable, '[gs]et_flippable'); +} + __END__ Copyright (C) 2003,2006 by the gtk2-perl team (see the file AUTHORS for the diff --git a/xs/GtkRange.xs b/xs/GtkRange.xs index 26269d9..6210f3f 100644 --- a/xs/GtkRange.xs +++ b/xs/GtkRange.xs @@ -108,3 +108,12 @@ void gtk_range_set_fill_level (GtkRange *range, gdouble fill_level); gdouble gtk_range_get_fill_level (GtkRange *range); #endif + +#if GTK_CHECK_VERSION (2, 18, 0) + +gboolean gtk_range_get_flippable (GtkRange *range); + +void gtk_range_set_flippable (GtkRange *range, gboolean flippable); + +#endif + -- 1.6.4.4