[perl-Gtk2] Wrap gtk_menu_item_[gs]et_use_underline (new in gtk+ 2.16)

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

commit 3e426611228fc86dd6d9ea8bee831ab2b45e0d40
Author: Quentin Sculo <squentin free fr>
Date:   Tue Apr 13 19:58:13 2010 +0200

    Wrap gtk_menu_item_[gs]et_use_underline (new in gtk+ 2.16)

 t/GtkMenuItem.t   |   11 ++++++++++-
 xs/GtkMenuItem.xs |   11 +++++++++++
 2 files changed, 21 insertions(+), 1 deletions(-)
---
diff --git a/t/GtkMenuItem.t b/t/GtkMenuItem.t
index 5235ddd..98994ac 100644
--- a/t/GtkMenuItem.t
+++ b/t/GtkMenuItem.t
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 use strict;
-use Gtk2::TestHelper tests => 18;
+use Gtk2::TestHelper tests => 19;
 
 # $Id$
 
@@ -110,6 +110,15 @@ SKIP: {
   if ($item) { $item->destroy; }
 }
 
+SKIP: {
+  skip 'new 2.18 stuff', 1
+	unless Gtk2->CHECK_VERSION(2, 18, 0);
+
+	my $item = Gtk2::MenuItem->new("_foo");
+	$item->set_use_underline(TRUE);
+	is( $item->get_use_underline, TRUE, '[gs]et_use_underline');
+}
+
 __END__
 
 Copyright (C) 2003, 2010 by the gtk2-perl team (see the file AUTHORS for the
diff --git a/xs/GtkMenuItem.xs b/xs/GtkMenuItem.xs
index 262a593..499ffea 100644
--- a/xs/GtkMenuItem.xs
+++ b/xs/GtkMenuItem.xs
@@ -171,3 +171,14 @@ gtk_menu_item_set_accel_path (menu_item, accel_path)
 const gchar* gtk_menu_item_get_accel_path (GtkMenuItem *menu_item);
 
 #endif /* 2.14 */
+
+#if GTK_CHECK_VERSION (2, 16, 0)
+
+gboolean
+gtk_menu_item_get_use_underline (GtkMenuItem *menu_item)
+
+void
+gtk_menu_item_set_use_underline (GtkMenuItem *menu_item, gboolean use_underline)
+
+#endif /* 2.16 */
+