[Emacs-diffs] Changes to emacs/src/gtkutil.c

[Jan Djärv]

Index: emacs/src/gtkutil.c
diff -u emacs/src/gtkutil.c:1.84 emacs/src/gtkutil.c:1.85
--- emacs/src/gtkutil.c:1.84    Fri Feb 24 15:36:39 2006
+++ emacs/src/gtkutil.c Mon May 29 07:11:05 2006
@@ -1970,6 +1970,30 @@
   return w;
 }
 
+/* Callback called when keyboard traversal (started by x-menu-bar-start) ends.
+   WMENU is the menu for which traversal has been done.  DATA points to the
+   frame for WMENU.  We must release grabs, some bad interaction between GTK
+   and Emacs makes the menus keep the grabs.  */
+
+static void
+menu_nav_ended (wmenu, data)
+     GtkMenuShell *wmenu;
+     gpointer data;
+{
+  FRAME_PTR f = (FRAME_PTR) data;
+  Display *dpy = FRAME_X_DISPLAY (f);
+
+  BLOCK_INPUT;
+      GtkMenuShell *w = GTK_MENU_SHELL (FRAME_X_OUTPUT (f)->menubar_widget);
+      gtk_menu_shell_deactivate (w);
+      gtk_menu_shell_deselect (w);
+
+  XUngrabKeyboard (dpy, CurrentTime);
+  XUngrabPointer (dpy, CurrentTime);
+  UNBLOCK_INPUT;
+}
+
+
 static GtkWidget *create_menus P_ ((widget_value *, FRAME_PTR, GCallback,
                                    GCallback, GCallback, int, int, int,
                                    GtkWidget *, xg_menu_cb_data *, char *));
@@ -2024,6 +2048,12 @@
       }
       else wmenu = gtk_menu_bar_new ();
 
+      /* Fix up grabs after keyboard traversal ends.  */
+      g_signal_connect (G_OBJECT (wmenu),
+                        "selection-done",
+                        G_CALLBACK (menu_nav_ended),
+                        f);
+
       /* Put cl_data on the top menu for easier access.  */
       cl_data = make_cl_data (cl_data, f, highlight_cb);
       g_object_set_data (G_OBJECT (wmenu), XG_FRAME_DATA, (gpointer)cl_data);