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

   1 #
   2 # $Id: clamTheme.tcl,v 1.4 2006/12/18 19:33:14 jenglish Exp $
   3 #
   4 # "Clam" theme.
   5 #
   6 # Inspired by the XFCE family of Gnome themes.
   7 #
   8
   9 namespace eval ttk::theme::clam {
  10     variable colors
  11     array set colors {
  12         -disabledfg     "#999999"
  13         -frame          "#dcdad5"
  14         -window         "#ffffff"
  15         -dark           "#cfcdc8"
  16         -darker         "#bab5ab"
  17         -darkest        "#9e9a91"
  18         -lighter        "#eeebe7"
  19         -lightest       "#ffffff"
  20         -selectbg       "#4a6984"
  21         -selectfg       "#ffffff"
  22     }
  23
  24     ttk::style theme settings clam {
  25
  26         ttk::style configure "." \
  27             -background $colors(-frame) \
  28             -foreground black \
  29             -bordercolor $colors(-darkest) \
  30             -darkcolor $colors(-dark) \
  31             -lightcolor $colors(-lighter) \
  32             -troughcolor $colors(-darker) \
  33             -selectbackground $colors(-selectbg) \
  34             -selectforeground $colors(-selectfg) \
  35             -selectborderwidth 0 \
  36             -font TkDefaultFont \
  37             ;
  38
  39         ttk::style map "." \
  40             -background [list disabled $colors(-frame) \
  41                              active $colors(-lighter)] \
  42             -foreground [list disabled $colors(-disabledfg)] \
  43             -selectbackground [list  !focus $colors(-darkest)] \
  44             -selectforeground [list  !focus white] \
  45             ;
  46         # -selectbackground [list  !focus "#847d73"]
  47
  48         ttk::style configure TButton -width -11 -padding 5 -relief raised
  49         ttk::style map TButton \
  50             -background [list \
  51                              disabled $colors(-frame) \
  52                              pressed $colors(-darker) \
  53                              active $colors(-lighter)] \
  54             -lightcolor [list pressed $colors(-darker)] \
  55             -darkcolor [list pressed $colors(-darker)] \
  56             -bordercolor [list alternate "#000000"] \
  57             ;
  58
  59         ttk::style configure Toolbutton -padding 2 -relief flat
  60         ttk::style map Toolbutton \
  61             -relief [list \
  62                     disabled flat \
  63                     selected sunken \
  64                     pressed sunken \
  65                     active raised] \
  66             -background [list \
  67                     disabled $colors(-frame) \
  68                     pressed $colors(-darker) \
  69                     active $colors(-lighter)] \
  70             -lightcolor [list pressed $colors(-darker)] \
  71             -darkcolor [list pressed $colors(-darker)] \
  72             ;
  73
  74         ttk::style configure TCheckbutton \
  75             -indicatorbackground "#ffffff" \
  76             -indicatormargin {1 1 4 1} \
  77             -padding 2 ;
  78         ttk::style configure TRadiobutton \
  79             -indicatorbackground "#ffffff" \
  80             -indicatormargin {1 1 4 1} \
  81             -padding 2 ;
  82         ttk::style map TCheckbutton -indicatorbackground \
  83             [list  disabled $colors(-frame)  pressed $colors(-frame)]
  84         ttk::style map TRadiobutton -indicatorbackground \
  85             [list  disabled $colors(-frame)  pressed $colors(-frame)]
  86
  87         ttk::style configure TMenubutton \
  88             -width -11 -padding 5 -relief raised -anchor w
  89
  90         ttk::style configure TEntry -padding 1 -insertwidth 1
  91         ttk::style map TEntry \
  92             -background [list  readonly $colors(-frame)] \
  93             -bordercolor [list  focus $colors(-selectbg)] \
  94             -lightcolor [list  focus "#6f9dc6"] \
  95             -darkcolor [list  focus "#6f9dc6"] \
  96             ;
  97
  98         ttk::style configure TCombobox -padding 1 -insertwidth 1
  99         ttk::style map TCombobox \
 100             -background [list active $colors(-lighter) \
 101                              pressed $colors(-lighter)] \
 102             -fieldbackground [list {readonly focus} $colors(-selectbg) \
 103                                   readonly $colors(-frame)] \
 104             -foreground [list {readonly focus} $colors(-selectfg)] \
 105             ;
 106
 107         ttk::style configure TNotebook.Tab -padding {6 2 6 2}
 108         ttk::style map TNotebook.Tab \
 109             -padding [list selected {6 4 6 2}] \
 110             -background [list selected $colors(-frame) {} $colors(-darker)] \
 111             -lightcolor [list selected $colors(-lighter) {} $colors(-dark)] \
 112             ;
 113
 114         # Treeview:
 115         ttk::style configure Heading \
 116             -font TkHeadingFont -relief raised -padding {3}
 117         ttk::style configure Row -background $colors(-window)
 118         ttk::style configure Cell -background $colors(-window)
 119         ttk::style map Row \
 120             -background [list selected $colors(-selectbg)] \
 121             -foreground [list selected $colors(-selectfg)] ;
 122         ttk::style map Cell \
 123             -background [list selected $colors(-selectbg)] \
 124             -foreground [list selected $colors(-selectfg)] ;
 125         ttk::style map Item \
 126             -background [list selected $colors(-selectbg)] \
 127             -foreground [list selected $colors(-selectfg)] ;
 128
 129         ttk::style configure TLabelframe \
 130             -labeloutside true -labelmargins {0 0 0 4} \
 131             -borderwidth 2 -relief raised
 132
 133         ttk::style configure TProgressbar -background $colors(-frame)
 134
 135         ttk::style configure Sash -sashthickness 6 -gripcount 10
 136     }
 137 }