blob: 9b9812ac951ae7eb5d7c16a5fcf36d5be200e4cf (
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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
#
# 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 -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 {2 2 2 0}
ttk::style configure TNotebook.Tab -padding {2.25p 0.75p} -borderwidth 1
ttk::style map TNotebook.Tab -expand {selected {2 2 2 0}}
# Treeview:
ttk::style configure Heading -font TkHeadingFont -relief raised
ttk::style configure Item \
-indicatormargins {1.5p 1.5p 3p 1.5p}
ttk::style configure Treeview -background SystemWindow \
-stripedbackground System3dLight -indent 15p
ttk::setTreeviewRowHeight
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
}
}
# ttk::theme::winnative::configureNotebookStyle --
#
# Sets theme-specific option values for the ttk::notebook style $style and the
# style $style.Tab. Invoked by ::ttk::configureNotebookStyle.
proc ttk::theme::winnative::configureNotebookStyle {style} {
set tabPos [ttk::style lookup $style -tabposition {} nw]
switch -- [string index $tabPos 0] {
n {
ttk::style configure $style -tabmargins {2 2 2 0}
ttk::style map $style.Tab -expand {selected {2 2 2 0}}
}
s {
ttk::style configure $style -tabmargins {2 0 2 2}
ttk::style map $style.Tab -expand {selected {2 0 2 2}}
}
w {
ttk::style configure $style -tabmargins {2 2 0 2}
ttk::style map $style.Tab -expand {selected {2 2 0 2}}
}
e {
ttk::style configure $style -tabmargins {0 2 2 2}
ttk::style map $style.Tab -expand {selected {0 2 2 2}}
}
default {
ttk::style configure $style -tabmargins {2 2 2 0}
ttk::style map $style.Tab -expand {selected {2 2 2 0}}
}
}
}
|
