>From c98d201a7b95f91130e7565de41968a9ffc18ac8 Mon Sep 17 00:00:00 2001 From: Quentin Sculo Date: Tue, 13 Apr 2010 19:06:00 +0200 Subject: [PATCH 05/16] wrap get_caps_lock_state (new in gtk+-2.16) --- t/GdkKeys.t | 9 ++++++++- xs/GdkKeys.xs | 6 ++++++ 2 files changed, 14 insertions(+), 1 deletions(-) diff --git a/t/GdkKeys.t b/t/GdkKeys.t index 6aac694..d41bcc6 100644 --- a/t/GdkKeys.t +++ b/t/GdkKeys.t @@ -1,6 +1,6 @@ #!/usr/bin/perl -w use strict; -use Gtk2::TestHelper tests => 43; +use Gtk2::TestHelper tests => 44; # $Id$ @@ -86,6 +86,13 @@ SKIP: { ok(defined($map -> have_bidi_layouts())); } +SKIP: { + skip "new 2.16 stuff", 1 + unless Gtk2 -> CHECK_VERSION(2, 16, 0); + + ok(defined($map -> get_caps_lock_state), 'get_caps_lock_state'); +} + my $a = $Gtk2::Gdk::Keysyms{ a }; my $A = $Gtk2::Gdk::Keysyms{ A }; diff --git a/xs/GdkKeys.xs b/xs/GdkKeys.xs index d319f41..7312ae2 100644 --- a/xs/GdkKeys.xs +++ b/xs/GdkKeys.xs @@ -195,6 +195,12 @@ gboolean gdk_keymap_have_bidi_layouts (GdkKeymap *keymap); #endif +#if GTK_CHECK_VERSION (2, 16, 0) + +gboolean gdk_keymap_get_caps_lock_state (GdkKeymap *keymap); + +#endif + MODULE = Gtk2::Gdk::Keys PACKAGE = Gtk2::Gdk PREFIX = gdk_ gchar * -- 1.6.4.4