1#
2# Settings for 'winnative' theme.
3#
4
5namespace eval ttk::theme::winnative {
6    ttk::style theme settings winnative {
7
8	ttk::style configure "." \
9	    -background SystemButtonFace \
10	    -foreground SystemWindowText \
11	    -selectforeground SystemHighlightText \
12	    -selectbackground SystemHighlight \
13	    -troughcolor SystemScrollbar \
14	    -font TkDefaultFont \
15	    ;
16
17	ttk::style map "." -foreground [list disabled SystemGrayText] ;
18        ttk::style map "." -embossed [list disabled 1] ;
19
20	ttk::style configure TButton \
21	    -anchor center -width -11 -relief raised -shiftrelief 1
22	ttk::style configure TCheckbutton -padding "2 4"
23	ttk::style configure TRadiobutton -padding "2 4"
24	ttk::style configure TMenubutton \
25	    -padding "8 4" -arrowsize 3 -relief raised
26
27	ttk::style map TButton -relief {{!disabled pressed} sunken}
28
29	ttk::style configure TEntry \
30	    -padding 2 -selectborderwidth 0 -insertwidth 1
31	ttk::style map TEntry \
32	    -fieldbackground \
33	    	[list readonly SystemButtonFace disabled SystemButtonFace] \
34	    -selectbackground [list !focus SystemWindow] \
35	    -selectforeground [list !focus SystemWindowText] \
36	    ;
37
38	ttk::style configure TCombobox -padding 2
39	ttk::style map TCombobox \
40	    -selectbackground [list !focus SystemWindow] \
41	    -selectforeground [list !focus SystemWindowText] \
42	    -fieldbackground [list \
43	    	readonly SystemButtonFace \
44		disabled SystemButtonFace] \
45	    -foreground	[list \
46		disabled		SystemGrayText \
47	    	{readonly focus}	SystemHighlightText \
48	    ] \
49	    -focusfill	[list {readonly focus} SystemHighlight] \
50	    ;
51
52	ttk::style element create ComboboxPopdownFrame.border from default
53	ttk::style configure ComboboxPopdownFrame \
54	    -borderwidth 1 -relief solid
55
56        ttk::style configure TSpinbox -padding {2 0 16 0}
57
58	ttk::style configure TLabelframe -borderwidth 2 -relief groove
59
60	ttk::style configure Toolbutton -relief flat -padding {8 4}
61	ttk::style map Toolbutton -relief \
62	    {disabled flat selected sunken  pressed sunken  active raised}
63
64	ttk::style configure TScale -groovewidth 4
65
66	ttk::style configure TNotebook -tabmargins {2 2 2 0}
67	ttk::style configure TNotebook.Tab -padding {3 1} -borderwidth 1
68	ttk::style map TNotebook.Tab -expand [list selected {2 2 2 0}]
69
70	# Treeview:
71	ttk::style configure Heading -font TkHeadingFont -relief raised
72	ttk::style configure Treeview -background SystemWindow
73	ttk::style map Treeview \
74	    -background [list selected SystemHighlight] \
75	    -foreground [list selected SystemHighlightText] ;
76
77        ttk::style configure TProgressbar \
78	    -background SystemHighlight -borderwidth 0 ;
79    }
80}
81