(lw_motif_menu_related_event_p): A predicate to identify keyboard events

intended only for menus.

diff --git a/lwlib/lwlib-Xm.c b/lwlib/lwlib-Xm.c
index 57e4b4a2ca5cd9d32c059cc4965f33687f34f543..5df98c1d6845f74450ec0c2ba7be9141fa308632 100644 (file)
--- a/lwlib/lwlib-Xm.c
+++ b/lwlib/lwlib-Xm.c
@@ -118,6 +118,18 @@ first_child (widget)
   return ((CompositeWidget)widget)->composite.children [0];
 }
 
+Boolean
+lw_motif_menu_related_event_p (event)
+     XEvent event;
+{
+  Widget widget = XtWindowToWidget (event.xkey.display,event.xkey.window);
+  WidgetClass class = XtClass (widget);
+  return 
+    class == xmMainWindowWidgetClass
+    || class == xmRowColumnWidgetClass
+    || class == xmMenuShellWidgetClass;
+}
+
 Boolean
 lw_motif_widget_p (widget)
      Widget widget;