projman/theme/ttk_theme_dark.tcl

135 lines
5.1 KiB
Tcl
Raw Normal View History

# 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::dark {
variable version 0.0.1
variable dir [file dirname [info script]]
global cfgVariables
package provide ttk::theme::dark $version
# NB: These colors must be in sync with the ones in black.rdb
variable colors
array set colors {
-disabledfg "#a9a9a9"
-frame "#1e1e1e"
-lightframe "#3d3d3d"
-dark "#222222"
-darker "#121212"
-darkest "#000000"
-lighter "#626262"
-lightest "#ffffff"
-selectbg "#4a6984"
-selectfg "#ffffff"
-foreground "#cecbc9"
-linemapbg "#121212"
-linemapfg "#2c2c2c"
-treebg "#2c2c2c"
}
ttk::style theme create dark -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 "{Droid Sans Mono} 9"
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 link
ttk::style configure TMenubutton -relief flat -arrowsize 0
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 TFrame -relief flat -border -1
# ttk::style configure TEntry -fieldbackground #ffffff -foreground #000000 -padding {2 0}
ttk::style configure TEntry -fieldbackground $colors(-lightframe) -foreground #ffffff -padding {2 0}
ttk::style configure TCombobox \
-fieldbackground $colors(-lightframe) \
-foreground #ffffff \
-padding {2 0}
ttk::style configure TSpinbox \
-fieldbackground $colors(-lightframe) \
-foreground #ffffff
ttk::style configure TNotebook
# -bordercolor $colors(-frame)
ttk::style configure TNotebook.Tab \
-padding {6 2 6 2}
#ttk::style configure TPanedwindow -fieldbackground #ffffff -foreground #000000
#ttk::style configure TPanedwindow -background red -foreground blue
# tk widgets.
ttk::style map Menu \
-background [list active $colors(-lighter)] \
-foreground [list disabled $colors(-disabledfg)]
ttk::style configure Treeview \
-background $colors(-treebg) -itembackground {gray60 gray50} \
-itemfill #ffffff -itemaccentfill yellow \
-fieldbackground $colors(-treebg)
# -indicatormargins 0 \
# -indicatorsize -1 \
# -padding 0
ttk::style configure Text \
-linemapbg [list active $colors(-linemapbg)]\
-linemapfg [list active $colors(-linemapfg)]\
-background [list active $colors(-lighter)] \
-foreground [list disabled $colors(-disabledfg)]
ttk::style configure TLabel -foreground $colors(-disabledfg) -padding {2 0}
# ttk::style configure TreeCtrl \
# -background gray30 -itembackground {gray60 gray50} \
# -itemfill #ffffff -itemaccentfill yellow
option add *Toplevel.Background $colors(-dark) interactive
option add *Text.Foreground $colors(-foreground) interactive
option add *Text.Background $colors(-frame) interactive
option add *Listbox.Background $colors(-treebg) interactive
option add *Listbox.Foreground $colors(-lighter) interactive
# option add *Text.Insertbackground yellow interactive
# option add *Text.BorderWidth -2 interactive
# option add *Text.selectBorderWidth -2 interactive
# option add *Text.Relief flat interactive
# option add *Text.Font "{Noto Sans Mono} 10" interactive
#option add *BorderWidth -2 interactive
}
# option add *Treeview.Background red interactive
# option add *Frame.Background $colors(-frame) interactive
# option add *Label.Background $colors(-frame) interactive
# option add *Label.Foreground $colors(-foreground) interactive
# option add *Entry.Background $colors(-frame) interactive
# option add *Entry.Foreground $colors(-foreground) interactive
}