[perl-Gtk2] Wrap gtk_menu_[gs]et_reserve_toggle_size (new in gtk+ 2.18)
- From: Torsten Schönfeld <tsch src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [perl-Gtk2] Wrap gtk_menu_[gs]et_reserve_toggle_size (new in gtk+ 2.18)
- Date: Thu, 22 Apr 2010 23:07:32 +0000 (UTC)
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]