1#
2# Ttk widget set: Alternate theme
3#
4
5namespace 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	-altindicator	"#aaaaaa"
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	    -bordercolor	$colors(-border) \
27	    -selectbackground 	$colors(-selectbg) \
28	    -selectforeground 	$colors(-selectfg) \
29	    -font 		TkDefaultFont \
30	    ;
31
32	ttk::style map "." -background \
33	    [list disabled $colors(-frame)  active $colors(-activebg)] ;
34	ttk::style map "." -foreground [list disabled $colors(-disabledfg)] ;
35        ttk::style map "." -embossed [list disabled 1] ;
36
37	ttk::style configure TButton \
38	    -anchor center -width -11 -padding "1 1" \
39	    -relief raised -shiftrelief 1 \
40	    -highlightthickness 1 -highlightcolor $colors(-frame)
41
42	ttk::style map TButton -relief {
43	    {pressed !disabled} 	sunken
44	    {active !disabled} 	raised
45	} -highlightcolor {alternate black}
46
47	ttk::style configure TCheckbutton -indicatorcolor "#ffffff" -padding 2
48	ttk::style configure TRadiobutton -indicatorcolor "#ffffff" -padding 2
49	ttk::style map TCheckbutton -indicatorcolor \
50	    [list  pressed $colors(-frame) \
51	           alternate $colors(-altindicator) \
52	           disabled $colors(-frame)]
53	ttk::style map TRadiobutton -indicatorcolor \
54	    [list  pressed $colors(-frame) \
55	           alternate $colors(-altindicator) \
56	           disabled $colors(-frame)]
57
58	ttk::style configure TMenubutton \
59	    -width -11 -padding "3 3" -relief raised
60
61	ttk::style configure TEntry -padding 1
62	ttk::style map TEntry -fieldbackground \
63		[list readonly $colors(-frame) disabled $colors(-frame)]
64	ttk::style configure TCombobox -padding 1
65	ttk::style map TCombobox -fieldbackground \
66		[list readonly $colors(-frame) disabled $colors(-frame)] \
67		-arrowcolor [list disabled $colors(-disabledfg)]
68	ttk::style configure ComboboxPopdownFrame \
69	    -relief solid -borderwidth 1
70
71	ttk::style configure TSpinbox -arrowsize 10 -padding {2 0 10 0}
72	ttk::style map TSpinbox -fieldbackground \
73	    [list readonly $colors(-frame) disabled $colors(-frame)] \
74	    -arrowcolor [list disabled $colors(-disabledfg)]
75
76	ttk::style configure Toolbutton -relief flat -padding 2
77	ttk::style map Toolbutton -relief \
78	    {disabled flat selected sunken pressed sunken active raised}
79	ttk::style map Toolbutton -background \
80	    [list pressed $colors(-darker)  active $colors(-activebg)]
81
82	ttk::style configure TScrollbar -relief raised
83
84	ttk::style configure TLabelframe -relief groove -borderwidth 2
85
86	ttk::style configure TNotebook -tabmargins {2 2 1 0}
87	ttk::style configure TNotebook.Tab \
88	    -padding {4 2} -background $colors(-darker)
89	ttk::style map TNotebook.Tab \
90	    -background [list selected $colors(-frame)] \
91	    -expand [list selected {2 2 1 0}] \
92	    ;
93
94	# Treeview:
95	ttk::style configure Heading -font TkHeadingFont -relief raised
96	ttk::style configure Treeview -background $colors(-window)
97	ttk::style map Treeview \
98	    -background [list disabled $colors(-frame)\
99				selected $colors(-selectbg)] \
100	    -foreground [list disabled $colors(-disabledfg) \
101				selected $colors(-selectfg)]
102
103	ttk::style configure TScale \
104	    -groovewidth 4 -troughrelief sunken \
105	    -sliderwidth raised -borderwidth 2
106	ttk::style configure TProgressbar \
107	    -background $colors(-selectbg) -borderwidth 0
108    }
109}
110