summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorjenglish <jenglish@flightlab.com>2009-04-10 16:52:53 (GMT)
committerjenglish <jenglish@flightlab.com>2009-04-10 16:52:53 (GMT)
commitfb7d2dec5776c581189e43818230325dccd7bc2e (patch)
treea4bcfcad00a2cd2bcfdb942edeb859a7d5a6ecc0 /library
parenta1723c5258aae0056d0a6ac2bdaf0e7b93658848 (diff)
downloadtk-fb7d2dec5776c581189e43818230325dccd7bc2e.zip
tk-fb7d2dec5776c581189e43818230325dccd7bc2e.tar.gz
tk-fb7d2dec5776c581189e43818230325dccd7bc2e.tar.bz2
tk_setPalette: Don't set *selectColor: #b03060;
this makes radio- and checkbuttons look wrong post-TIP#109.
Diffstat (limited to 'library')
-rw-r--r--library/palette.tcl7
1 files changed, 2 insertions, 5 deletions
diff --git a/library/palette.tcl b/library/palette.tcl
index eae93d9..57a5641 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.13 2009/04/10 16:52:54 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
}