diff options
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | library/palette.tcl | 7 |
2 files changed, 8 insertions, 5 deletions
@@ -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 } |