mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(xm_arm_callback): New function.

Browse Source 
(make_menu_in_widget): Set xm_arm_callback as XmNarmCallback and
XmNdisarmCallback for buttons (not supported for other widgets).
This commit is contained in:
Gerd Moellmann 2000-01-17 09:09:08 +00:00
parent 05aea71425
commit d3065ce277
1 changed files with 51 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
lwlib/lwlib-Xm.c
View File

@ -129,6 +129,7 @@ void xm_set_keyboard_focus P_ ((Widget, Widget));
void xm_set_main_areas P_ ((Widget, Widget, Widget));
static void xm_internal_update_other_instances P_ ((Widget, XtPointer,
XtPointer));
static void xm_arm_callback P_ ((Widget, XtPointer, XtPointer));
#if 0
void xm_update_one_widget P_ ((widget_instance *, Widget, widget_value *,
@ -138,8 +139,7 @@ void xm_manage_resizing P_ ((Widget, Boolean));
#endif
static destroyed_instance*
all_destroyed_instances = NULL;
static destroyed_instance *all_destroyed_instances = NULL;
static destroyed_instance*
make_destroyed_instance (name, type, widget, parent, pop_up_p)
@ -247,6 +247,47 @@ destroy_all_children (widget, first_child_to_destroy)
}
}
/* Callback XmNarmCallback and XmNdisarmCallback for buttons in a
menu. CLIENT_DATA contains a pointer to the widget_value
corresponding to widget W. CALL_DATA contains a
XmPushButtonCallbackStruct containing the reason why the callback
is called. */
static void
xm_arm_callback (w, client_data, call_data)
Widget w;
XtPointer client_data, call_data;
{
XmPushButtonCallbackStruct *cbs = (XmPushButtonCallbackStruct *) call_data;
widget_value *wv = (widget_value *) client_data;
widget_instance *instance;
/* Get the id of the menu bar or popup menu this widget is in. */
while (1)
{
if (XmIsRowColumn (w))
{
unsigned char type = 0xff;
XtVaGetValues (w, XmNrowColumnType, &type, NULL);
if (type == XmMENU_BAR || type == XmMENU_POPUP)
break;
}
w = XtParent (w);
}
instance = lw_get_widget_instance (w);
if (instance && instance->info->highlight_cb)
{
call_data = cbs->reason == XmCR_DISARM ? NULL : wv;
instance->info->highlight_cb (w, instance->info->id, call_data);
}
}
/* Update the label of widget WIDGET. WIDGET must be a Label widget
or a subclass of Label. WIDGET_INSTANCE is unused. VAL contains
@ -519,10 +560,16 @@ make_menu_in_widget (instance, widget, val, keep_first_children)
? XmN_OF_MANY : XmONE_OF_MANY));
++ac;
button = XmCreateToggleButton (widget, cur->name, al, ac);
XtAddCallback (button, XmNarmCallback, xm_arm_callback, cur);
XtAddCallback (button, XmNdisarmCallback, xm_arm_callback, cur);
}
else
button = XmCreatePushButton (widget, cur->name, al, ac);
{
button = XmCreatePushButton (widget, cur->name, al, ac);
XtAddCallback (button, XmNarmCallback, xm_arm_callback, cur);
XtAddCallback (button, XmNdisarmCallback, xm_arm_callback, cur);
}
xm_update_label (instance, button, cur);
/* Add a callback that is called when the button is