procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(xm_popup_menu): New arg `event'.

Browse source
This commit is contained in:
Richard M. Stallman 1995-08-02 07:14:04 +00:00
parent 0c7c510c4c
commit 86c42dbd6d
1 changed files with 16 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
lwlib/lwlib-Xm.c
View file

@ -1409,23 +1409,26 @@ xm_destroy_instance (instance)
/* popup utility */
void
xm_popup_menu (widget)
xm_popup_menu (widget, event)
Widget widget;
XEvent *event;
{
XButtonPressedEvent dummy;
XEvent* event;
dummy.type = ButtonPress;
dummy.serial = 0;
dummy.send_event = 0;
dummy.display = XtDisplay (widget);
dummy.window = XtWindow (XtParent (widget));
dummy.time = 0;
dummy.button = 0;
XQueryPointer (dummy.display, dummy.window, &dummy.root,
&dummy.subwindow, &dummy.x_root, &dummy.y_root,
&dummy.x, &dummy.y, &dummy.state);
event = (XEvent *) &dummy;
if (event == 0)
{
dummy.type = ButtonPress;
dummy.serial = 0;
dummy.send_event = 0;
dummy.display = XtDisplay (widget);
dummy.window = XtWindow (XtParent (widget));
dummy.time = 0;
dummy.button = 0;
XQueryPointer (dummy.display, dummy.window, &dummy.root,
&dummy.subwindow, &dummy.x_root, &dummy.y_root,
&dummy.x, &dummy.y, &dummy.state);
event = (XEvent *) &dummy;
}
if (event->type == ButtonPress || event->type == ButtonRelease)
{