[perl-Gtk2] Wrap gtk_range_[gs]et_flippable (new in gtk+ 2.18)

[Torsten Schönfeld <tsch src gnome org>]

commit 11dfc921393b65890e9f4a68f31148d9e3627c92
Author: Quentin Sculo <squentin free fr>
Date:   Tue Apr 13 19:28:05 2010 +0200

    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
+