diff options
| author | Richard M. Stallman | 1994-03-19 07:16:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-03-19 07:16:54 +0000 |
| commit | 13162c0e6b8bd645f74de20a4e49203ed9afaba6 (patch) | |
| tree | 4b25d5e6e7d49acde71d10b85a7e6531765e9552 | |
| parent | 540e52d1a9f441effae515100e1476b6bc4f2b11 (diff) | |
| download | emacs-13162c0e6b8bd645f74de20a4e49203ed9afaba6.tar.gz emacs-13162c0e6b8bd645f74de20a4e49203ed9afaba6.zip | |
*** empty log message ***
| -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) | |||
| 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 | } |