[perl-Gtk2] Wrap gtk_menu_[gs]et_reserve_toggle_size (new in gtk+ 2.18)



commit fa15fe1155296b08d429a5b931f8e6d80230ab87
Author: Quentin Sculo <squentin free fr>
Date:   Tue Apr 13 19:21:59 2010 +0200

    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
+



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]