diff options
| -rw-r--r-- | ChangeLog | 7 | ||||
| -rw-r--r-- | generic/tkButton.c | 12 |
2 files changed, 18 insertions, 1 deletions
@@ -1,5 +1,12 @@ 2002-05-26 Peter Spjuth <peter.spjuth@space.se> + * generic/tkButton.c (ConfigureButton): When creating + a radiobutton with -value "" it was not drawn properly + if the -variable was created by the radiobutton. + [Bug #548765] + +2002-05-26 Peter Spjuth <peter.spjuth@space.se> + * generic/tkCanvText.c (ComputeTextBbox): Negative coordinates were rounded badly causing a 1 pixel displacement. [Bug #556526] 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; + } } } |