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

(xlw_popup_menu): New arg event.

Browse source
This commit is contained in:
Richard M. Stallman 1995-08-02 07:13:45 +00:00
parent 5b3b31d608
commit 0c7c510c4c
1 changed files with 18 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
lwlib/lwlib-Xlw.c
View file

@ -185,8 +185,9 @@ xlw_pop_instance (instance, up)
}
void
xlw_popup_menu (widget)
xlw_popup_menu (widget, event)
Widget widget;
XEvent *event;
{
XButtonPressedEvent dummy;
XlwMenuWidget mw;
@ -196,18 +197,23 @@ xlw_popup_menu (widget)
mw = (XlwMenuWidget)((CompositeWidget)widget)->composite.children [0];
dummy.type = ButtonPress;
dummy.serial = 0;
dummy.send_event = 0;
dummy.display = XtDisplay (widget);
dummy.window = XtWindow (XtParent (widget));
dummy.time = CurrentTime;
dummy.button = 0;
XQueryPointer (dummy.display, dummy.window, &dummy.root,
&dummy.subwindow, &dummy.x_root, &dummy.y_root,
&dummy.x, &dummy.y, &dummy.state);
if (event)
pop_up_menu (mw, event);
else
{
dummy.type = ButtonPress;
dummy.serial = 0;
dummy.send_event = 0;
dummy.display = XtDisplay (widget);
dummy.window = XtWindow (XtParent (widget));
dummy.time = CurrentTime;
dummy.button = 0;
XQueryPointer (dummy.display, dummy.window, &dummy.root,
&dummy.subwindow, &dummy.x_root, &dummy.y_root,
&dummy.x, &dummy.y, &dummy.state);
pop_up_menu (mw, &dummy);
pop_up_menu (mw, &dummy);
}
}
/* Destruction of instances */