summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog6
-rw-r--r--library/palette.tcl7
2 files changed, 8 insertions, 5 deletions
diff --git a/ChangeLog b/ChangeLog
index d1e7cb3..ff33342 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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/demos/filebox.tcl: only show "Motif Style Dialog" checkbutton
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
}