diff options
| author | jenglish <jenglish@flightlab.com> | 2009-04-10 16:55:19 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2009-04-10 16:55:19 (GMT) |
| commit | 58d7254dcea0c83333a1f6c680e544393efdbd07 (patch) | |
| tree | 26fee2f3a920ded8b8b500e9cfc79c2ac82bad04 /library | |
| parent | beea78b6faa595692094d9f1c75ca2311884771d (diff) | |
| download | tk-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.tcl | 7 |
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 } |