diff options
| author | jenglish <jenglish@flightlab.com> | 2009-04-10 16:52:53 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2009-04-10 16:52:53 (GMT) |
| commit | fb7d2dec5776c581189e43818230325dccd7bc2e (patch) | |
| tree | a4bcfcad00a2cd2bcfdb942edeb859a7d5a6ecc0 /library | |
| parent | a1723c5258aae0056d0a6ac2bdaf0e7b93658848 (diff) | |
| download | tk-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.tcl | 7 |
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 } |