mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Implement `pre_activate' callbacks for Motif menus

Browse source 
* lwlib/lwlib-Xm.c (make_menu_in_widget): Add
xm_pop_up_callback as the popup callback.
(xm_pop_up_callback): New function.
This commit is contained in:
Po Lu 2022-03-05 09:35:44 +08:00
parent 08221a58b7
commit 6efed75ff3
1 changed files with 19 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lwlib/lwlib-Xm.c
View file

@ -115,6 +115,7 @@ static void xm_generic_callback (Widget, XtPointer, XtPointer);
static void xm_nosel_callback (Widget, XtPointer, XtPointer); static void xm_nosel_callback (Widget, XtPointer, XtPointer);
static void xm_pull_down_callback (Widget, XtPointer, XtPointer); static void xm_pull_down_callback (Widget, XtPointer, XtPointer);
static void xm_pop_down_callback (Widget, XtPointer, XtPointer); static void xm_pop_down_callback (Widget, XtPointer, XtPointer);
static void xm_pop_up_callback (Widget, XtPointer, XtPointer);
static void xm_internal_update_other_instances (Widget, XtPointer, static void xm_internal_update_other_instances (Widget, XtPointer,
XtPointer); XtPointer);
static void xm_arm_callback (Widget, XtPointer, XtPointer); static void xm_arm_callback (Widget, XtPointer, XtPointer);
@ -513,8 +514,12 @@ make_menu_in_widget (widget_instance* instance,
/* Add a callback to popups and pulldowns that is called when /* Add a callback to popups and pulldowns that is called when
it is made invisible again. */ it is made invisible again. */
if (!menubar_p) if (!menubar_p)
XtAddCallback (XtParent (widget), XmNpopdownCallback, {
xm_pop_down_callback, (XtPointer)instance); XtAddCallback (XtParent (widget), XmNpopdownCallback,
xm_pop_down_callback, (XtPointer) instance);
XtAddCallback (XtParent (widget), XmNpopupCallback,
xm_pop_up_callback, (XtPointer) instance);
}
/* Preserve the first KEEP_FIRST_CHILDREN old children. */ /* Preserve the first KEEP_FIRST_CHILDREN old children. */
for (child_index = 0, cur = val; child_index < keep_first_children; for (child_index = 0, cur = val; child_index < keep_first_children;
@ -1915,6 +1920,18 @@ xm_pop_down_callback (Widget widget,
do_call (widget, closure, post_activate); do_call (widget, closure, post_activate);
} }
static void
xm_pop_up_callback (Widget widget,
XtPointer closure,
XtPointer call_data)
{
widget_instance *instance = (widget_instance *) closure;
if ((!instance->pop_up_p && XtParent (widget) == instance->widget)
|| XtParent (widget) == instance->parent)
do_call (widget, closure, pre_activate);
}
/* set the keyboard focus */ /* set the keyboard focus */
void void