aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1994-03-19 07:16:54 +0000
committerRichard M. Stallman1994-03-19 07:16:54 +0000
commit13162c0e6b8bd645f74de20a4e49203ed9afaba6 (patch)
tree4b25d5e6e7d49acde71d10b85a7e6531765e9552
parent540e52d1a9f441effae515100e1476b6bc4f2b11 (diff)
downloademacs-13162c0e6b8bd645f74de20a4e49203ed9afaba6.tar.gz
emacs-13162c0e6b8bd645f74de20a4e49203ed9afaba6.zip
*** empty log message ***
-rw-r--r--lwlib/lwlib-Xaw.c23
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)
118 widget_value *val; 118 widget_value *val;
119 Boolean deep_p; 119 Boolean deep_p;
120{ 120{
121#if 0
121 if (XtIsSubclass (widget, scrollbarWidgetClass)) 122 if (XtIsSubclass (widget, scrollbarWidgetClass))
122 { 123 {
123 xaw_update_scrollbar (instance, widget, val); 124 xaw_update_scrollbar (instance, widget, val);
124 } 125 }
125 else if (XtIsSubclass (widget, dialogWidgetClass)) 126#endif
127 if (XtIsSubclass (widget, dialogWidgetClass))
126 { 128 {
127 Arg al[1]; 129 Arg al[1];
128 int ac = 0; 130 int ac = 0;
@@ -132,6 +134,8 @@ xaw_update_one_widget (instance, widget, val, deep_p)
132 else if (XtIsSubclass (widget, commandWidgetClass)) 134 else if (XtIsSubclass (widget, commandWidgetClass))
133 { 135 {
134 Dimension bw = 0; 136 Dimension bw = 0;
137 Arg al[3];
138
135 XtVaGetValues (widget, XtNborderWidth, &bw, 0); 139 XtVaGetValues (widget, XtNborderWidth, &bw, 0);
136 if (bw == 0) 140 if (bw == 0)
137 /* Don't let buttons end up with 0 borderwidth, that's ugly... 141 /* 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)
140 that I don't feel like opening right now. Making Athena widgets 144 that I don't feel like opening right now. Making Athena widgets
141 not look like shit is just entirely too much work. 145 not look like shit is just entirely too much work.
142 */ 146 */
143 XtVaSetValues (widget, XtNborderWidth, 1, 0); 147 {
144 148 XtSetArg (al[0], XtNborderWidth, 1);
145 XtVaSetValues (widget, 149 XtSetValues (widget, al, 1);
146 XtNlabel, val->value, 150 }
147 XtNsensitive, val->enabled,
148 /* Force centered button text. Se above. */
149 XtNjustify, XtJustifyCenter,
150 0);
151 151
152 XtSetArg (al[0], XtNlabel, val->value);
153 XtSetArg (al[1], XtNsensitive, val->enabled);
154 /* Force centered button text. Se above. */
155 XtSetArg (al[2], XtNjustify, XtJustifyCenter);
156 XtSetValues (widget, al, 3);
152 XtRemoveAllCallbacks (widget, XtNcallback); 157 XtRemoveAllCallbacks (widget, XtNcallback);
153 XtAddCallback (widget, XtNcallback, xaw_generic_callback, instance); 158 XtAddCallback (widget, XtNcallback, xaw_generic_callback, instance);
154 } 159 }