[perl-Gtk2] Wrap gdk_keymap_get_caps_lock_state (new in gtk+ 2.16)
- From: Torsten Schönfeld <tsch src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [perl-Gtk2] Wrap gdk_keymap_get_caps_lock_state (new in gtk+ 2.16)
- Date: Tue, 20 Apr 2010 21:09:39 +0000 (UTC)
commit 5fd7957a06446475e2111400d3fd7fee51910311
Author: Quentin Sculo <squentin free fr>
Date: Tue Apr 13 19:06:00 2010 +0200
Wrap gdk_keymap_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 *
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]