[perl-Gtk2] Wrap gdk_keymap_get_caps_lock_state (new in gtk+ 2.16)



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]