Commit e9ec3919 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(make_menu_in_widget, update_one_menu_entry): Use

widgets instead of gadgets to be able to set colors.
parent ac441528
...@@ -516,10 +516,10 @@ make_menu_in_widget (instance, widget, val, keep_first_children) ...@@ -516,10 +516,10 @@ make_menu_in_widget (instance, widget, val, keep_first_children)
(cur->button_type == BUTTON_TYPE_TOGGLE (cur->button_type == BUTTON_TYPE_TOGGLE
? XmN_OF_MANY : XmONE_OF_MANY)); ? XmN_OF_MANY : XmONE_OF_MANY));
++ac; ++ac;
button = XmCreateToggleButtonGadget (widget, cur->name, al, ac); button = XmCreateToggleButton (widget, cur->name, al, ac);
} }
else else
button = XmCreatePushButtonGadget (widget, cur->name, al, ac); button = XmCreatePushButton (widget, cur->name, al, ac);
xm_update_label (instance, button, cur); xm_update_label (instance, button, cur);
...@@ -541,7 +541,7 @@ make_menu_in_widget (instance, widget, val, keep_first_children) ...@@ -541,7 +541,7 @@ make_menu_in_widget (instance, widget, val, keep_first_children)
/* Non-zero values don't work reliably in conjunction with /* Non-zero values don't work reliably in conjunction with
Emacs' event loop */ Emacs' event loop */
XtSetArg (al [ac], XmNmappingDelay, 0); ac++; XtSetArg (al [ac], XmNmappingDelay, 0); ac++;
button = XmCreateCascadeButtonGadget (widget, cur->name, al, ac); button = XmCreateCascadeButton (widget, cur->name, al, ac);
xm_update_label (instance, button, cur); xm_update_label (instance, button, cur);
...@@ -655,7 +655,7 @@ update_one_menu_entry (instance, widget, val, deep_p) ...@@ -655,7 +655,7 @@ update_one_menu_entry (instance, widget, val, deep_p)
/* Tell Motif to put it in the right place */ /* Tell Motif to put it in the right place */
XtSetArg (al [ac], XmNpositionIndex , i); ac++; XtSetArg (al [ac], XmNpositionIndex , i); ac++;
#endif #endif
button = XmCreateCascadeButtonGadget (parent, val->name, al, ac); button = XmCreateCascadeButton (parent, val->name, al, ac);
xm_update_label (instance, button, val); xm_update_label (instance, button, val);
XtAddCallback (button, XmNcascadingCallback, xm_pull_down_callback, XtAddCallback (button, XmNcascadingCallback, xm_pull_down_callback,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment