diff options
Diffstat (limited to 'library/palette.tcl')
| -rw-r--r-- | library/palette.tcl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/library/palette.tcl b/library/palette.tcl index c9b1208..8cea657 100644 --- a/library/palette.tcl +++ b/library/palette.tcl @@ -71,6 +71,20 @@ proc ::tk_setPalette {args} { if {![info exists new(highlightBackground)]} { set new(highlightBackground) $new(background) } + # 'buttonBackground' is the background color of the buttons in + # the spinbox widget. + if {![info exists new(buttonBackground)]} { + set new(buttonBackground) $new(background) + } + # 'selectColor' is the background of check & radio buttons. + if {![info exists new(selectColor)]} { + foreach {r g b} $bg {break} + if {$r+1.5*$g+0.5*$b > 100000} { + set new(selectColor) white + } else { + set new(selectColor) black + } + } if {![info exists new(activeBackground)]} { # Pick a default active background that islighter than the # normal background. To do this, round each color component |