projman/theme/ttk_theme_dark.tcl

# 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) \
            -selectborderwidth 1 \
            -font "{Droid Sans Mono} 9" \
            -selectbackground $colors(-selectbg) \
            -selectforeground $colors(-selectfg) \

        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]
            
        # \
        # -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 $colors(-lighter) -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 $colors(-lightframe) \
            -padding {2 0}
        ttk::style configure TLabel -foreground  $colors(-disabledfg) \
            -background $colors(-frame) -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 TScrollbar -relief flat -border 0
        
        # 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 TreeCtrl \
            -background gray30 -itembackground {gray60 gray50} \
            -itemfill white -itemaccentfill yellow
        
        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 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
}