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

*** empty log message ***

Browse source
This commit is contained in:
Richard M. Stallman 1994-03-19 07:16:54 +00:00
parent 540e52d1a9
commit 13162c0e6b
1 changed files with 14 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lwlib/lwlib-Xaw.c
View file

@ -118,11 +118,13 @@ xaw_update_one_widget (instance, widget, val, deep_p)
widget_value *val;
Boolean deep_p;
{
#if 0
if (XtIsSubclass (widget, scrollbarWidgetClass))
{
xaw_update_scrollbar (instance, widget, val);
}
else if (XtIsSubclass (widget, dialogWidgetClass))
#endif
if (XtIsSubclass (widget, dialogWidgetClass))
{
Arg al[1];
int ac = 0;
@ -132,6 +134,8 @@ xaw_update_one_widget (instance, widget, val, deep_p)
else if (XtIsSubclass (widget, commandWidgetClass))
{
Dimension bw = 0;
Arg al[3];
XtVaGetValues (widget, XtNborderWidth, &bw, 0);
if (bw == 0)
/* Don't let buttons end up with 0 borderwidth, that's ugly...
@ -140,15 +144,16 @@ xaw_update_one_widget (instance, widget, val, deep_p)
that I don't feel like opening right now. Making Athena widgets
not look like shit is just entirely too much work.
*/
XtVaSetValues (widget, XtNborderWidth, 1, 0);
XtVaSetValues (widget,
XtNlabel, val->value,
XtNsensitive, val->enabled,
/* Force centered button text. Se above. */
XtNjustify, XtJustifyCenter,
0);
{
XtSetArg (al[0], XtNborderWidth, 1);
XtSetValues (widget, al, 1);
}
XtSetArg (al[0], XtNlabel, val->value);
XtSetArg (al[1], XtNsensitive, val->enabled);
/* Force centered button text. Se above. */
XtSetArg (al[2], XtNjustify, XtJustifyCenter);
XtSetValues (widget, al, 3);
XtRemoveAllCallbacks (widget, XtNcallback);
XtAddCallback (widget, XtNcallback, xaw_generic_callback, instance);
}