-/* $Header: /gd/gnu/cvsroot/emacs/oldXMenu/Activate.c,v 1.2 2000/01/27 15:31:20 gerd Exp $ */
/* Copyright Massachusetts Institute of Technology 1985 */
+/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */
#include "copyright.h"
*
* 1) If at any time an error occurs the data
* pointer is left untouched and XM_FAILURE
- * is returned.
+ * is returned.
*
* 2) When a selection request is received (i.e.,
* when the specified mouse event occurs) the
* will be left untouched and XM_NO_SELECT will
* be returned.
*
- * 4) If the selection that was current at the time
+ * 4) If the selection that was current at the time
* a selection request is made is not an active
* selection the data pointer will be left
* untouched and XM_IA_SELECT will be returned.
#include <config.h>
#include "XMenuInt.h"
+#include <X11/keysym.h>
+
+/* For debug, set this to 0 to not grab the keyboard on menu popup */
+int x_menu_grab_keyboard = 1;
+
+typedef void (*Wait_func)();
+
+static Wait_func wait_func;
+static void* wait_data;
+
+void
+XMenuActivateSetWaitFunction (func, data)
+ Wait_func func;
+ void *data;
+{
+ wait_func = func;
+ wait_data = data;
+}
int
XMenuActivate(display, menu, p_num, s_num, x_pos, y_pos, event_mask, data,
Window root, child;
int root_x, root_y, win_x, win_y;
unsigned int mask;
+ KeySym keysym;
/*
* Define and allocate a foreign event queue to hold events
XMEventQue *feq = NULL; /* Foreign event queue. */
XMEventQue *feq_tmp; /* Foreign event queue temporary. */
-
+
/*
* If there are no panes in the menu then return failure
* because the menu is not initialized.
* Compute origin of menu so that cursor is in
* Correct pane and selection.
*/
- _XMTransToOrigin(display,
- menu,
- cur_p, cur_s,
- x_pos, y_pos,
+ _XMTransToOrigin(display,
+ menu,
+ cur_p, cur_s,
+ x_pos, y_pos,
&orig_x, &orig_y);
menu->x_pos = orig_x; /* Store X and Y coords of menu. */
menu->y_pos = orig_y;
-
+
if (XMenuRecompute(display, menu) == XM_FAILURE) {
return(XM_FAILURE);
}
* not provided an event handler.
*/
XSync(display, 0);
-
+
/*
* Grab the mouse for menu input.
*/
-
+
status = XGrabPointer(
display,
menu->parent,
menu->mouse_cursor,
CurrentTime
);
+ if (status == Success && x_menu_grab_keyboard)
+ {
+ status = XGrabKeyboard (display,
+ menu->parent,
+ False,
+ GrabModeAsync,
+ GrabModeAsync,
+ CurrentTime);
+ if (status != Success)
+ XUngrabPointer(display, CurrentTime);
+ }
+
if (status == _X_FAILURE) {
_XMErrorCode = XME_GRAB_MOUSE;
return(XM_FAILURE);
*/
XMapWindow(display, cur_p->window);
for (p_ptr = menu->p_list->next;
- p_ptr != cur_p;
+ p_ptr != cur_p;
p_ptr = p_ptr->next)
XMapWindow(display, p_ptr->window);
for (p_ptr = cur_p->next;
XRaiseWindow(display, cur_p->window); /* Make sure current */
/* pane is on top. */
-
+
cur_s = NULL; /* Clear current selection. */
/*
* Begin event processing loop.
*/
while (1) {
+ if (wait_func) (*wait_func) (wait_data);
XNextEvent(display, &event); /* Get next event. */
switch (event.type) { /* Dispatch on the event type. */
case Expose:
event_xmp = (XMPane *)XLookUpAssoc(display,
- menu->assoc_tab,
+ menu->assoc_tab,
event.xexpose.window);
if (event_xmp == NULL) {
/*
}
if (event_xmp->activated) {
XSetWindowBackground(display,
- event_xmp->window,
+ event_xmp->window,
menu->bkgnd_color);
}
else {
_XMRefreshPane(display, menu, event_xmp);
break;
case EnterNotify:
- /*
+ /*
* First wait a small period of time, and see
* if another EnterNotify event follows hard on the
* heels of this one. i.e., the user is simply
* "passing through". If so, ignore this one.
*/
-
+
event_xmw = (XMWindow *)XLookUpAssoc(display,
menu->assoc_tab,
event.xcrossing.window);
if(peek_event.type == LeaveNotify) {
break;
}
- }
+ }
cur_s = (XMSelect *)event_xmw;
help_callback (cur_s->help_string,
cur_p->serial, cur_s->serial);
-
+
/*
* If the pane we are in is active and the
* selection entered is active then activate
* take it from here. -- caveh@eng.sun.com.
*/
XSetWindowBackground(display,
- event_xmp->window,
+ event_xmp->window,
menu->bkgnd_color);
_XMRefreshPane(display, menu, event_xmp);
#endif
);
if (event_xmw == NULL) break;
if(cur_s == NULL) break;
-
+
/*
* If the current selection was activated then
* deactivate it.
}
cur_s = NULL;
break;
-
+
case ButtonPress:
case ButtonRelease:
*p_num = cur_p->serial;
}
selection = True;
break;
+ case KeyPress:
+ case KeyRelease:
+ keysym = XLookupKeysym (&event.xkey, 0);
+
+ /* Pop down on C-g and Escape. */
+ if ((keysym == XK_g && (event.xkey.state & ControlMask) != 0)
+ || keysym == XK_Escape) /* Any escape, ignore modifiers. */
+ {
+ ret_val = XM_NO_SELECT;
+ selection = True;
+ }
+ break;
default:
/*
* If AEQ mode is enabled then queue the event.
*/
for ( p_ptr = menu->p_list->next;
p_ptr != menu->p_list;
- p_ptr = p_ptr->next)
+ p_ptr = p_ptr->next)
{
XUnmapWindow(display, p_ptr->window);
}
* Ungrab the mouse.
*/
XUngrabPointer(display, CurrentTime);
+ XUngrabKeyboard(display, CurrentTime);
- /*
+ /*
* Restore bits under where the menu was if we managed
* to save them and free the pixmap.
*/
* Synchronize the X buffers and the X event queue.
*/
XSync(display, 0);
-
+
/*
* Dispatch any events remaining on the queue.
*/
feq = feq_tmp->next;
free((char *)feq_tmp);
}
-
+
+ wait_func = 0;
+
/*
* Return successfully.
*/
return(ret_val);
}
+
+/* arch-tag: 6b90b578-ecea-4328-b460-a0c96963f872
+ (do not change this comment) */