tk_setPalette: Don't set *selectColor: #b03060;

this makes radio- and checkbuttons look wrong post-TIP#109.

2 files changed, 8 insertions, 5 deletions

diff --git a/ChangeLog b/ChangeLog
index c842b51..0020e49 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2008-04-10  Joe English  <jenglish@users.sourceforge.net
+
+	* library/palette.tcl(tk_setPalette): Don't set 
+	*selectColor: #b03060; this makes radio- and checkbuttons
+	look wrong post-TIP#109.
+
 2008-04-10  Daniel Steffen  <das@users.sourceforge.net>
 
 	* library/msgbox.tcl: don't set msgbox bitmap background on TkAqua.
diff --git a/library/palette.tcl b/library/palette.tcl
index eae93d9..13600be 100644
--- a/library/palette.tcl
+++ b/library/palette.tcl
@@ -3,7 +3,7 @@
 # This file contains procedures that change the color palette used
 # by Tk.
 #
-# RCS: @(#) $Id: palette.tcl,v 1.12 2007/05/09 12:51:55 das Exp $
+# RCS: @(#) $Id: palette.tcl,v 1.12.4.1 2009/04/10 16:55:19 jenglish Exp $
 #
 # Copyright (c) 1995-1997 Sun Microsystems, Inc.
 #
@@ -100,9 +100,6 @@ proc ::tk_setPalette {args} {
     if {![info exists new(troughColor)]} {
 	set new(troughColor) $darkerBg
     }
-    if {![info exists new(selectColor)]} {
-	set new(selectColor) #b03060
-    }
 
     # let's make one of each of the widgets so we know what the 
     # defaults are currently for this platform.
@@ -242,7 +239,7 @@ proc ::tk_bisque {} {
     tk_setPalette activeBackground #e6ceb1 activeForeground black \
 	    background #ffe4c4 disabledForeground #b0b0b0 foreground black \
 	    highlightBackground #ffe4c4 highlightColor black \
-	    insertBackground black selectColor #b03060 \
+	    insertBackground black \
 	    selectBackground #e6ceb1 selectForeground black \
 	    troughColor #cdb79e
 }