>From b8216bf27c6064d1895a597560d5f72f7a3934c8 Mon Sep 17 00:00:00 2001 From: Quentin Sculo Date: Tue, 13 Apr 2010 19:58:13 +0200 Subject: [PATCH 02/16] 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 */ + -- 1.6.4.4