Black ttk theme edit
bll 2018-6-12 Creating this page so that this theme does not get lost, though I was able to find it somewhere.
I quite like this theme. I use
#ffa600 and
#ffd000 colors with it for good contrast.
I don't use tablelist, I have no idea if the changes for tablelist are current.
# black.tcl -
#
# Experimental!
#
# Copyright (c) 2007-2008 Mats Bengtsson
#
# $Id: black.tcl,v 1.2 2009/10/25 19:21:30 oberdorfer Exp $
package require Tk
namespace eval ttk::theme::black {
variable version 0.0.1
variable dir [file dirname [info script]]
package provide ttk::theme::black $version
# NB: These colors must be in sync with the ones in black.rdb
variable colors
array set colors {
-disabledfg "#a9a9a9"
-frame "#424242"
-dark "#222222"
-darker "#121212"
-darkest "#000000"
-lighter "#626262"
-lightest "#ffffff"
-selectbg "#4a6984"
-selectfg "#ffffff"
}
ttk::style theme create black -parent clam -settings {
# -----------------------------------------------------------------
# Theme defaults
#
ttk::style configure . \
-background $colors(-frame) \
-foreground #ffffff \
-bordercolor $colors(-darkest) \
-darkcolor $colors(-dark) \
-lightcolor $colors(-lighter) \
-troughcolor $colors(-darker) \
-selectbackground $colors(-selectbg) \
-selectforeground $colors(-selectfg) \
-selectborderwidth 0 \
-font TkDefaultFont
ttk::style map "." \
-background [list disabled $colors(-frame) \
active $colors(-lighter)] \
-foreground [list disabled $colors(-disabledfg)] \
-selectbackground [list !focus $colors(-darkest)] \
-selectforeground [list !focus #ffffff]
# ttk widgets.
ttk::style configure TButton \
-width -8 -padding {5 1} -relief raised
ttk::style configure TMenubutton \
-width -11 -padding {5 1} -relief raised
ttk::style configure TCheckbutton \
-indicatorbackground "#ffffff" -indicatormargin {1 1 4 1}
ttk::style configure TRadiobutton \
-indicatorbackground "#ffffff" -indicatormargin {1 1 4 1}
ttk::style configure TEntry \
-fieldbackground #ffffff \
-foreground #000000 \
-padding {2 0}
ttk::style configure TCombobox \
-fieldbackground #ffffff \
-foreground #000000 \
-padding {2 0}
ttk::style configure TSpinbox \
-foreground #000000
ttk::style configure TNotebook.Tab \
-padding {6 2 6 2}
# tk widgets.
ttk::style map Menu \
-background [list active $colors(-lighter)] \
-foreground [list disabled $colors(-disabledfg)]
ttk::style configure TreeCtrl \
-background gray30 -itembackground {gray60 gray50} \
-itemfill #ffffff -itemaccentfill yellow
}
}
# A few tricks for Tablelist.
namespace eval ::tablelist:: {
proc blackTheme {} {
variable themeDefaults
array set colors [array get ttk::theme::black::colors]
array set themeDefaults [list \
-background "#000000" \
-foreground "#ffffff" \
-disabledforeground $colors(-disabledfg) \
-stripebackground "#191919" \
-selectbackground "#4a6984" \
-selectforeground "#8b8b00" \
-selectborderwidth 0 \
-font TkTextFont \
-labelbackground $colors(-frame) \
-labeldisabledBg "#dcdad5" \
-labelactiveBg "#eeebe7" \
-labelpressedBg "#eeebe7" \
-labelforeground #ffffff \
-labeldisabledFg "#999999" \
-labelactiveFg #ffffff \
-labelpressedFg #ffffff \
-labelfont TkDefaultFont \
-labelborderwidth 2 \
-labelpady 1 \
-arrowcolor "" \
-arrowstyle sunken10x9 \
]
}
}
