mingw/lib/tk8.5/ttk/altTheme.tcl

   1 #
   2 # Ttk widget set: Alternate theme
   3 #
   4
   5 namespace eval ttk::theme::alt {
   6
   7     variable colors
   8     array set colors {
   9         -frame          "#d9d9d9"
  10         -window         "#ffffff"
  11         -darker         "#c3c3c3"
  12         -border         "#414141"
  13         -activebg       "#ececec"
  14         -disabledfg     "#a3a3a3"
  15         -selectbg       "#4a6984"
  16         -selectfg       "#ffffff"
  17     }
  18
  19     ttk::style theme settings alt {
  20
  21         ttk::style configure "." \
  22             -background         $colors(-frame) \
  23             -foreground         black \
  24             -troughcolor        $colors(-darker) \
  25             -bordercolor        $colors(-border) \
  26             -selectbackground   $colors(-selectbg) \
  27             -selectforeground   $colors(-selectfg) \
  28             -font               TkDefaultFont \
  29             ;
  30
  31         ttk::style map "." -background \
  32             [list disabled $colors(-frame)  active $colors(-activebg)] ;
  33         ttk::style map "." -foreground [list disabled $colors(-disabledfg)] ;
  34         ttk::style map "." -embossed [list disabled 1] ;
  35
  36         ttk::style configure TButton \
  37             -anchor center -width -11 -padding "1 1" \
  38             -relief raised -shiftrelief 1 \
  39             -highlightthickness 1 -highlightcolor $colors(-frame)
  40
  41         ttk::style map TButton -relief {
  42             {pressed !disabled}         sunken
  43             {active !disabled}  raised
  44         } -highlightcolor {alternate black}
  45
  46         ttk::style configure TCheckbutton -indicatorcolor "#ffffff" -padding 2
  47         ttk::style configure TRadiobutton -indicatorcolor "#ffffff" -padding 2
  48         ttk::style map TCheckbutton -indicatorcolor \
  49             [list  disabled $colors(-frame)  pressed $colors(-frame)]
  50         ttk::style map TRadiobutton -indicatorcolor \
  51             [list  disabled $colors(-frame)  pressed $colors(-frame)]
  52
  53         ttk::style configure TMenubutton \
  54             -width -11 -padding "3 3" -relief raised
  55
  56         ttk::style configure TEntry -padding 1
  57         ttk::style map TEntry -fieldbackground \
  58                 [list readonly $colors(-frame) disabled $colors(-frame)]
  59         ttk::style configure TCombobox -padding 1
  60         ttk::style map TCombobox -fieldbackground \
  61                 [list readonly $colors(-frame) disabled $colors(-frame)]
  62         ttk::style configure ComboboxPopdownFrame \
  63             -relief solid -borderwidth 1
  64
  65         ttk::style configure TSpinbox -arrowsize 10 -padding {2 0 10 0}
  66         ttk::style map TSpinbox -fieldbackground \
  67             [list readonly $colors(-frame) disabled $colors(-frame)] \
  68             -arrowcolor [list disabled $colors(-disabledfg)]
  69
  70         ttk::style configure Toolbutton -relief flat -padding 2
  71         ttk::style map Toolbutton -relief \
  72             {disabled flat selected sunken pressed sunken active raised}
  73         ttk::style map Toolbutton -background \
  74             [list pressed $colors(-darker)  active $colors(-activebg)]
  75
  76         ttk::style configure TScrollbar -relief raised
  77
  78         ttk::style configure TLabelframe -relief groove -borderwidth 2
  79
  80         ttk::style configure TNotebook -tabmargins {2 2 1 0}
  81         ttk::style configure TNotebook.Tab \
  82             -padding {4 2} -background $colors(-darker)
  83         ttk::style map TNotebook.Tab \
  84             -background [list selected $colors(-frame)] \
  85             -expand [list selected {2 2 1 0}] \
  86             ;
  87
  88         # Treeview:
  89         ttk::style configure Heading -font TkHeadingFont -relief raised
  90         ttk::style configure Treeview -background $colors(-window)
  91         ttk::style map Treeview \
  92             -background [list selected $colors(-selectbg)] \
  93             -foreground [list selected $colors(-selectfg)] ;
  94
  95         ttk::style configure TScale \
  96             -groovewidth 4 -troughrelief sunken \
  97             -sliderwidth raised -borderwidth 2
  98         ttk::style configure TProgressbar \
  99             -background $colors(-selectbg) -borderwidth 0
 100     }
 101 }