diff options
| author | pspjuth <peter.spjuth@gmail.com> | 2002-05-26 09:25:56 (GMT) |
|---|---|---|
| committer | pspjuth <peter.spjuth@gmail.com> | 2002-05-26 09:25:56 (GMT) |
| commit | fbf182998e38265316eb57dcd882b13a5e066134 (patch) | |
| tree | 6a806b3a1ba1d3752ae6a98c16426064e1c914bd /generic/tkButton.c | |
| parent | da032a4579104fb5d0ad2e2b612593da35715543 (diff) | |
| download | tk-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.c | 12 |
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; + } } } |