>From d3695a4d5b1c5a719488afc1b8d80c7c92ac7abb Mon Sep 17 00:00:00 2001 From: Quentin Sculo Date: Tue, 13 Apr 2010 19:21:59 +0200 Subject: [PATCH 07/16] wrap gtk_menu_[gs]et_reserve_toggle_size (new in gtk+-2.18) --- t/GtkMenu.t | 10 +++++++++- xs/GtkMenu.xs | 9 +++++++++ 2 files changed, 18 insertions(+), 1 deletions(-) diff --git a/t/GtkMenu.t b/t/GtkMenu.t index 61e7daa..4a50835 100644 --- a/t/GtkMenu.t +++ b/t/GtkMenu.t @@ -8,7 +8,7 @@ # - rm ######################### -use Gtk2::TestHelper tests => 61; +use Gtk2::TestHelper tests => 62; ok( my $menubar = Gtk2::MenuBar->new ); @@ -168,6 +168,14 @@ SKIP: { is ($menu->get_monitor, 0); } +SKIP: { + skip 'new 2.18 stuff', 1 + unless Gtk2->CHECK_VERSION(2, 18, 0); + + $menu->set_reserve_toggle_size(FALSE); + is ($menu->get_reserve_toggle_size, FALSE, '[sg]et_reserve_toggle_size'); +} + __END__ Copyright (C) 2003, 2010 by the gtk2-perl team (see the file AUTHORS for the diff --git a/xs/GtkMenu.xs b/xs/GtkMenu.xs index a738af7..db16e81 100644 --- a/xs/GtkMenu.xs +++ b/xs/GtkMenu.xs @@ -289,3 +289,12 @@ const gchar* gtk_menu_get_accel_path (GtkMenu *menu); gint gtk_menu_get_monitor (GtkMenu *menu); #endif /* 2.14 */ + +#if GTK_CHECK_VERSION (2, 18, 0) + +void gtk_menu_set_reserve_toggle_size (GtkMenu *menu, gboolean reserve_toggle_size); + +gboolean gtk_menu_get_reserve_toggle_size (GtkMenu *menu); + +#endif + -- 1.6.4.4