blob: 1874e43541083a1f06906afd3724a9b0879625aa (
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
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
#
# Ttk widget set: Alternate theme
#
namespace eval ttk::theme::alt {
variable colors
array set colors {
-frame "#d9d9d9"
-window "#ffffff"
-alternate "#f0f0f0"
-darker "#c3c3c3"
-border "#414141"
-activebg "#ececec"
-disabledfg "#a3a3a3"
-selectbg "#4a6984"
-selectfg "#ffffff"
-altindicator "#aaaaaa"
}
ttk::style theme settings alt {
ttk::style configure "." \
-background $colors(-frame) \
-foreground black \
-troughcolor $colors(-darker) \
-bordercolor $colors(-border) \
-selectbackground $colors(-selectbg) \
-selectforeground $colors(-selectfg) \
-font TkDefaultFont
ttk::style map "." -background \
[list disabled $colors(-frame) active $colors(-activebg)]
ttk::style map "." -foreground [list disabled $colors(-disabledfg)]
ttk::style map "." -embossed [list disabled 1]
ttk::style configure TButton \
-anchor center -width -11 -padding 0.75p \
-relief raised -shiftrelief 1 \
-highlightthickness 1 -highlightcolor $colors(-frame)
ttk::style map TButton -relief {
{pressed !disabled} sunken
{active !disabled} raised
} -highlightcolor {alternate black}
ttk::style configure TCheckbutton -indicatorcolor "#ffffff" \
-indicatormargin {0 1.5p 3p 1.5p} -padding 1.5p
ttk::style configure TRadiobutton -indicatorcolor "#ffffff" \
-indicatormargin {0 1.5p 3p 1.5p} -padding 1.5p
ttk::style map TCheckbutton -indicatorcolor \
[list pressed $colors(-frame) \
alternate $colors(-altindicator) \
disabled $colors(-frame)]
ttk::style map TRadiobutton -indicatorcolor \
[list pressed $colors(-frame) \
alternate $colors(-altindicator) \
disabled $colors(-frame)]
ttk::style configure TMenubutton \
-width -11 -padding 2.25p -arrowsize 3.75p -relief raised
ttk::style configure TEntry -padding 1 \
-focuswidth 2 -focuscolor $colors(-selectbg)
ttk::style map TEntry -fieldbackground \
[list readonly $colors(-frame) disabled $colors(-frame)]
ttk::style configure TCombobox -padding 1 -arrowsize 10.5p \
-focuswidth 1 -focuscolor $colors(-selectbg)
ttk::style map TCombobox -fieldbackground \
[list readonly $colors(-frame) disabled $colors(-frame)] \
-arrowcolor [list disabled $colors(-disabledfg)]
ttk::style configure ComboboxPopdownFrame -relief solid -borderwidth 1
ttk::style configure TSpinbox -arrowsize 7.5p -padding {1.5p 0 7.5p 0} \
-focuswidth 1 -focuscolor $colors(-selectbg)
ttk::style map TSpinbox -fieldbackground \
[list readonly $colors(-frame) disabled $colors(-frame)] \
-arrowcolor [list disabled $colors(-disabledfg)]
ttk::style configure Toolbutton -relief flat -padding 1.5p
ttk::style map Toolbutton -relief \
{disabled flat selected sunken pressed sunken active raised}
ttk::style map Toolbutton -background \
[list pressed $colors(-darker) active $colors(-activebg)]
ttk::style configure TScrollbar -relief raised \
-arrowsize 10.5p -width 10.5p
ttk::style configure TLabelframe -relief groove -borderwidth 2
ttk::style configure TNotebook -tabmargins {1.5p 1.5p 0.75p 0}
ttk::style configure TNotebook.Tab -background $colors(-darker) \
-padding {3p 1.5p}
ttk::style map TNotebook.Tab \
-background [list selected $colors(-frame)] \
-expand {selected {1.5p 1.5p 0.75p 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 $colors(-window) \
-stripedbackground $colors(-alternate) -indent 15p \
-focuswidth 1 -focuscolor $colors(-selectbg)
ttk::setTreeviewRowHeight
ttk::style configure Treeview.Separator \
-background $colors(-alternate)
ttk::style map Treeview \
-background [list disabled $colors(-frame)\
selected $colors(-selectbg)] \
-foreground [list disabled $colors(-disabledfg) \
selected $colors(-selectfg)]
ttk::style configure TScale \
-groovewidth 3p -troughrelief sunken \
-sliderthickness 11.25p -borderwidth 2
ttk::style configure TProgressbar \
-background $colors(-selectbg) -borderwidth 0 \
-barsize 22.5p -thickness 11.25p
}
}
# ttk::theme::alt::configureNotebookStyle --
#
# Sets theme-specific option values for the ttk::notebook style $style and the
# style $style.Tab. Invoked by ::ttk::configureNotebookStyle.
proc ttk::theme::alt::configureNotebookStyle {style} {
set tabPos [ttk::style lookup $style -tabposition {} nw]
switch -- [string index $tabPos 0] {
n {
ttk::style configure $style -tabmargins {1.5p 1.5p 0.75p 0}
ttk::style map $style.Tab -expand {selected {1.5p 1.5p 0.75p 0}}
}
s {
ttk::style configure $style -tabmargins {1.5p 0 0.75p 1.5p}
ttk::style map $style.Tab -expand {selected {1.5p 0 0.75p 1.5p}}
}
w {
ttk::style configure $style -tabmargins {1.5p 1.5p 0 0.75p}
ttk::style map $style.Tab -expand {selected {1.5p 1.5p 0 0.75p}}
}
e {
ttk::style configure $style -tabmargins {0 1.5p 1.5p 0.75p}
ttk::style map $style.Tab -expand {selected {0 1.5p 1.5p 0.75p}}
}
default {
ttk::style configure $style -tabmargins {1.5p 1.5p 0.75p 0}
ttk::style map $style.Tab -expand {selected {1.5p 1.5p 0.75p 0}}
}
}
}
|
