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

   1 #
   2 # $Id: altTheme.tcl,v 1.6 2007/12/13 15:27:07 dgp Exp $
   3 #
   4 # Ttk widget set: Alternate theme
   5 #
   6
   7 namespace eval ttk::theme::alt {
   8
   9     variable colors
  10     array set colors {
  11         -frame          "#d9d9d9"
  12         -window         "#ffffff"
  13         -darker         "#c3c3c3"
  14         -activebg       "#ececec"
  15         -disabledfg     "#a3a3a3"
  16         -selectbg       "#4a6984"
  17         -selectfg       "#ffffff"
  18     }
  19
  20     ttk::style theme settings alt {
  21
  22         ttk::style configure "." \
  23             -background         $colors(-frame) \
  24             -foreground         black \
  25             -troughcolor        $colors(-darker) \
  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
  63         ttk::style configure Toolbutton -relief flat -padding 2
  64         ttk::style map Toolbutton -relief \
  65             {disabled flat selected sunken pressed sunken active raised}
  66         ttk::style map Toolbutton -background \
  67             [list pressed $colors(-darker)  active $colors(-activebg)]
  68
  69         ttk::style configure TScrollbar -relief raised
  70
  71         ttk::style configure TLabelframe -relief groove -borderwidth 2
  72
  73         ttk::style configure TNotebook -tabmargins {2 2 1 0}
  74         ttk::style configure TNotebook.Tab \
  75             -padding {4 2} -background $colors(-darker)
  76         ttk::style map TNotebook.Tab \
  77             -background [list selected $colors(-frame)] \
  78             -expand [list selected {2 2 1 0}] \
  79             ;
  80
  81         # Treeview:
  82         ttk::style configure Heading -font TkHeadingFont -relief raised
  83         ttk::style configure Row -background $colors(-window)
  84         ttk::style configure Cell -background $colors(-window)
  85         ttk::style map Row \
  86             -background [list selected $colors(-selectbg)] \
  87             -foreground [list selected $colors(-selectfg)] ;
  88         ttk::style map Cell \
  89             -background [list selected $colors(-selectbg)] \
  90             -foreground [list selected $colors(-selectfg)] ;
  91         ttk::style map Item \
  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 }