perl-Gtk2 r2110 - in trunk: . t xs

[tsch svn gnome org]

Author: tsch
Date: Tue Jan 13 20:47:12 2009
New Revision: 2110
URL: http://svn.gnome.org/viewvc/perl-Gtk2?rev=2110&view=rev

Log:
Wrap gtk_im_multicontext_get_context_id.  Patch by Emmanuel Rodriguez.


Modified:
   trunk/ChangeLog
   trunk/t/GtkIMContext.t
   trunk/xs/GtkIMMulticontext.xs

Modified: trunk/t/GtkIMContext.t
==============================================================================
--- trunk/t/GtkIMContext.t	(original)
+++ trunk/t/GtkIMContext.t	Tue Jan 13 20:47:12 2009
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 # vim: set ft=perl :
 
-use Gtk2::TestHelper tests => 7;
+use Gtk2::TestHelper tests => 9;
 
 my $context = Gtk2::IMContextSimple->new;
 isa_ok ($context, 'Gtk2::IMContextSimple');
@@ -59,3 +59,14 @@
 isa_ok ($context, 'Glib::Object');
 
 $context->append_menuitems (Gtk2::Menu->new);
+
+SKIP: {
+	skip '2.16 additions', 2
+		unless Gtk2->CHECK_VERSION (2, 15, 0); # FIXME: 2.16
+
+	is ($context->get_context_id, undef, 'No default context ID');
+
+	# Get a default context
+	$context->focus_in ();
+	is ($context->get_context_id, 'gtk-im-context-simple', 'Simple context');
+}

Modified: trunk/xs/GtkIMMulticontext.xs
==============================================================================
--- trunk/xs/GtkIMMulticontext.xs	(original)
+++ trunk/xs/GtkIMMulticontext.xs	Tue Jan 13 20:47:12 2009
@@ -28,3 +28,10 @@
         /*void*/
 
 void gtk_im_multicontext_append_menuitems (GtkIMMulticontext *context, GtkMenuShell *menushell);
+
+
+#if GTK_CHECK_VERSION(2, 15, 0) /* FIXME: 2.16 */
+
+const char* gtk_im_multicontext_get_context_id (GtkIMMulticontext *context);
+
+#endif /* 2.16 */