summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorjenglish <jenglish@flightlab.com>2009-04-10 16:55:19 (GMT)
committerjenglish <jenglish@flightlab.com>2009-04-10 16:55:19 (GMT)
commit58d7254dcea0c83333a1f6c680e544393efdbd07 (patch)
tree26fee2f3a920ded8b8b500e9cfc79c2ac82bad04 /library
parentbeea78b6faa595692094d9f1c75ca2311884771d (diff)
downloadtk-58d7254dcea0c83333a1f6c680e544393efdbd07.zip
tk-58d7254dcea0c83333a1f6c680e544393efdbd07.tar.gz
tk-58d7254dcea0c83333a1f6c680e544393efdbd07.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..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
}