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

[Torsten Schönfeld <tsch src gnome org>]

commit bd0e98d1f8c06b7c38873a4fe1340d042212da0f
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Fri Apr 23 11:28:51 2010 +0100

    Wrap gtk_im_multicontext_set_context_id (new in gtk+ 2.16)
    
    Original patch by Emmanuele Bassi.
    
    https://bugzilla.gnome.org/show_bug.cgi?id=616634

 t/GtkIMContext.t        |    3 ++-
 xs/GtkIMMulticontext.xs |    2 ++
 2 files changed, 4 insertions(+), 1 deletions(-)
---
diff --git a/t/GtkIMContext.t b/t/GtkIMContext.t
index 890757a..3b63650 100644
--- a/t/GtkIMContext.t
+++ b/t/GtkIMContext.t
@@ -68,5 +68,6 @@ SKIP: {
 
 	# Get a default context
 	$context->focus_in ();
-	is ($context->get_context_id, 'gtk-im-context-simple', 'Simple context');
+	is (my $id = $context->get_context_id, 'gtk-im-context-simple', 'Simple context');
+	$context->set_context_id ($id);
 }
diff --git a/xs/GtkIMMulticontext.xs b/xs/GtkIMMulticontext.xs
index 293ae57..f36e891 100644
--- a/xs/GtkIMMulticontext.xs
+++ b/xs/GtkIMMulticontext.xs
@@ -32,6 +32,8 @@ void gtk_im_multicontext_append_menuitems (GtkIMMulticontext *context, GtkMenuSh
 
 #if GTK_CHECK_VERSION (2, 16, 0)
 
+void gtk_im_multicontext_set_context_id (GtkIMMulticontext *context, const char *context_id);
+
 const char* gtk_im_multicontext_get_context_id (GtkIMMulticontext *context);
 
 #endif /* 2.16 */