When creating a radiobutton with -value "" it was not drawn properly

if the -variable was created by the radiobutton. [Bug #548765]

2 files changed, 18 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 2fa9071..7c50e26 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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;
+		}
 	    }
 	}