summaryrefslogtreecommitdiffstats
path: root/generic/tkButton.c
diff options
context:
space:
mode:
authorpspjuth <peter.spjuth@gmail.com>2002-05-26 09:25:56 (GMT)
committerpspjuth <peter.spjuth@gmail.com>2002-05-26 09:25:56 (GMT)
commitfbf182998e38265316eb57dcd882b13a5e066134 (patch)
tree6a806b3a1ba1d3752ae6a98c16426064e1c914bd /generic/tkButton.c
parentda032a4579104fb5d0ad2e2b612593da35715543 (diff)
downloadtk-fbf182998e38265316eb57dcd882b13a5e066134.zip
tk-fbf182998e38265316eb57dcd882b13a5e066134.tar.gz
tk-fbf182998e38265316eb57dcd882b13a5e066134.tar.bz2
When creating a radiobutton with -value "" it was not drawn properly
if the -variable was created by the radiobutton. [Bug #548765]
Diffstat (limited to 'generic/tkButton.c')
-rw-r--r--generic/tkButton.c12
1 files changed, 11 insertions, 1 deletions
diff --git a/generic/tkButton.c b/generic/tkButton.c
index 7cc4803..fc9eab1 100644
--- a/generic/tkButton.c
+++ b/generic/tkButton.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkButton.c,v 1.16 2002/03/20 22:55:16 dgp Exp $
+ * RCS: @(#) $Id: tkButton.c,v 1.17 2002/05/26 09:25:56 pspjuth Exp $
*/
#include "tkButton.h"
@@ -1129,6 +1129,16 @@ ConfigureButton(interp, butPtr, objc, objv)
== NULL) {
continue;
}
+
+ /*
+ * If a radiobutton has the empty string as value
+ * it should be selected.
+ */
+
+ if ((butPtr->type == TYPE_RADIO_BUTTON) &&
+ (*Tcl_GetString(butPtr->onValuePtr) == 0)) {
+ butPtr->flags |= SELECTED;
+ }
}
}