(lw_motif_menu_related_event_p): A predicate to identify keyboard events

intended only for menus.

1 files changed, 12 insertions, 0 deletions

diff --git a/lwlib/lwlib-Xm.c b/lwlib/lwlib-Xm.c
index 57e4b4a2ca5..5df98c1d684 100644
--- a/lwlib/lwlib-Xm.c
+++ b/lwlib/lwlib-Xm.c
@@ -119,6 +119,18 @@ first_child (widget)
 }
 
 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;
 {