diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-03-19 07:16:54 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-03-19 07:16:54 +0000 |
commit | 13162c0e6b8bd645f74de20a4e49203ed9afaba6 (patch) | |
tree | 4b25d5e6e7d49acde71d10b85a7e6531765e9552 /lwlib | |
parent | 540e52d1a9f441effae515100e1476b6bc4f2b11 (diff) | |
download | emacs-13162c0e6b8bd645f74de20a4e49203ed9afaba6.tar.gz |
*** empty log message ***
Diffstat (limited to 'lwlib')
-rw-r--r-- | lwlib/lwlib-Xaw.c | 23 |
1 files changed, 14 insertions, 9 deletions
diff --git a/lwlib/lwlib-Xaw.c b/lwlib/lwlib-Xaw.c index 90aa782be81..76628ab8a0c 100644 --- a/lwlib/lwlib-Xaw.c +++ b/lwlib/lwlib-Xaw.c @@ -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); } |