-
Notifications
You must be signed in to change notification settings - Fork 0
/
sun-valley.tcl
70 lines (59 loc) · 2.94 KB
/
sun-valley.tcl
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
source [file join [file dirname [info script]] theme light.tcl]
source [file join [file dirname [info script]] theme dark.tcl]
proc set_theme {mode} {
if {$mode == "dark"} {
ttk::style theme use "sun-valley-dark"
ttk::style configure . \
-background $ttk::theme::sv_dark::theme_colors(-bg) \
-foreground $ttk::theme::sv_dark::theme_colors(-fg) \
-troughcolor $ttk::theme::sv_dark::theme_colors(-bg) \
-focuscolor $ttk::theme::sv_dark::theme_colors(-selbg) \
-selectbackground $ttk::theme::sv_dark::theme_colors(-selbg) \
-selectforeground $ttk::theme::sv_dark::theme_colors(-selfg) \
-insertwidth 1 \
-insertcolor $ttk::theme::sv_dark::theme_colors(-fg) \
-fieldbackground $ttk::theme::sv_dark::theme_colors(-bg) \
-font {"Segoe UI" 10} \
-borderwidth 0 \
-relief flat
tk_setPalette \
background $ttk::theme::sv_dark::theme_colors(-bg) \
foreground $ttk::theme::sv_dark::theme_colors(-fg) \
highlightColor $ttk::theme::sv_dark::theme_colors(-selbg) \
selectBackground $ttk::theme::sv_dark::theme_colors(-selbg) \
selectForeground $ttk::theme::sv_dark::theme_colors(-selfg) \
activeBackground $ttk::theme::sv_dark::theme_colors(-selbg) \
activeForeground $ttk::theme::sv_dark::theme_colors(-selfg)
ttk::style map . -foreground [list disabled $ttk::theme::sv_dark::theme_colors(-disfg)]
option add *font {"Segoe UI" 10}
option add *tearOff 0
option add *Menu.selectColor $ttk::theme::sv_dark::theme_colors(-fg)
} elseif {$mode == "light"} {
ttk::style theme use "sun-valley-light"
ttk::style configure . \
-background $ttk::theme::sv_light::theme_colors(-bg) \
-foreground $ttk::theme::sv_light::theme_colors(-fg) \
-troughcolor $ttk::theme::sv_light::theme_colors(-bg) \
-focuscolor $ttk::theme::sv_light::theme_colors(-selbg) \
-selectbackground $ttk::theme::sv_light::theme_colors(-selbg) \
-selectforeground $ttk::theme::sv_light::theme_colors(-selfg) \
-insertwidth 1 \
-insertcolor $ttk::theme::sv_light::theme_colors(-fg) \
-fieldbackground $ttk::theme::sv_light::theme_colors(-bg) \
-font {"Segoe UI" 10} \
-borderwidth 0 \
-relief flat
tk_setPalette \
background $ttk::theme::sv_light::theme_colors(-bg) \
foreground $ttk::theme::sv_light::theme_colors(-fg) \
highlightColor $ttk::theme::sv_light::theme_colors(-selbg) \
selectBackground $ttk::theme::sv_light::theme_colors(-selbg) \
selectForeground $ttk::theme::sv_light::theme_colors(-selfg) \
activeBackground $ttk::theme::sv_light::theme_colors(-selbg) \
activeForeground $ttk::theme::sv_light::theme_colors(-selfg)
ttk::style map . -foreground [list disabled $ttk::theme::sv_light::theme_colors(-disfg)]
option add *font {"Segoe UI" 10}
option add *tearOff 0
option add *Menu.selectColor $ttk::theme::sv_light::theme_colors(-fg)
}
}