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