From c19b3eb722ba8c6dd0d936b8ed1af843d676ff34 Mon Sep 17 00:00:00 2001 From: "peter.spjuth@gmail.com" Date: Sun, 26 May 2002 09:25:56 +0000 Subject: When creating a radiobutton with -value "" it was not drawn properly if the -variable was created by the radiobutton. [Bug #548765] --- ChangeLog | 7 +++++++ generic/tkButton.c | 12 +++++++++++- 2 files changed, 18 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 2fa9071..7c50e26 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,12 @@ 2002-05-26 Peter Spjuth + * 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 + * 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; + } } } -- cgit v0.12