From 58d7254dcea0c83333a1f6c680e544393efdbd07 Mon Sep 17 00:00:00 2001 From: jenglish Date: Fri, 10 Apr 2009 16:55:19 +0000 Subject: tk_setPalette: Don't set *selectColor: #b03060; this makes radio- and checkbuttons look wrong post-TIP#109. --- ChangeLog | 6 ++++++ library/palette.tcl | 7 ++----- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index c842b51..0020e49 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2008-04-10 Joe English * 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 } -- cgit v0.12