2 # Ttk widget set: Alternate theme
5 namespace eval ttk
::theme::alt {
19 ttk
::style theme settings alt
{
21 ttk
::style configure
"." \
22 -background $colors(-frame) \
24 -troughcolor $colors(-darker) \
25 -bordercolor $colors(-border) \
26 -selectbackground $colors(-selectbg) \
27 -selectforeground $colors(-selectfg) \
31 ttk
::style map
"." -background \
32 [list disabled
$colors(-frame) active
$colors(-activebg)] ;
33 ttk
::style map
"." -foreground [list disabled
$colors(-disabledfg)] ;
34 ttk
::style map
"." -embossed [list disabled
1] ;
36 ttk
::style configure TButton
\
37 -anchor center
-width -11 -padding "1 1" \
38 -relief raised
-shiftrelief 1 \
39 -highlightthickness 1 -highlightcolor $colors(-frame)
41 ttk
::style map TButton
-relief {
42 {pressed
!disabled
} sunken
43 {active
!disabled
} raised
44 } -highlightcolor {alternate black
}
46 ttk
::style configure TCheckbutton
-indicatorcolor "#ffffff" -padding 2
47 ttk
::style configure TRadiobutton
-indicatorcolor "#ffffff" -padding 2
48 ttk
::style map TCheckbutton
-indicatorcolor \
49 [list disabled
$colors(-frame) pressed
$colors(-frame)]
50 ttk
::style map TRadiobutton
-indicatorcolor \
51 [list disabled
$colors(-frame) pressed
$colors(-frame)]
53 ttk
::style configure TMenubutton
\
54 -width -11 -padding "3 3" -relief raised
56 ttk
::style configure TEntry
-padding 1
57 ttk
::style map TEntry
-fieldbackground \
58 [list readonly
$colors(-frame) disabled
$colors(-frame)]
59 ttk
::style configure TCombobox
-padding 1
60 ttk
::style map TCombobox
-fieldbackground \
61 [list readonly
$colors(-frame) disabled
$colors(-frame)]
62 ttk
::style configure ComboboxPopdownFrame
\
63 -relief solid
-borderwidth 1
65 ttk
::style configure TSpinbox
-arrowsize 10 -padding {2 0 10 0}
66 ttk
::style map TSpinbox
-fieldbackground \
67 [list readonly
$colors(-frame) disabled
$colors(-frame)] \
68 -arrowcolor [list disabled
$colors(-disabledfg)]
70 ttk
::style configure Toolbutton
-relief flat
-padding 2
71 ttk
::style map Toolbutton
-relief \
72 {disabled flat selected sunken pressed sunken active raised
}
73 ttk
::style map Toolbutton
-background \
74 [list pressed
$colors(-darker) active
$colors(-activebg)]
76 ttk
::style configure TScrollbar
-relief raised
78 ttk
::style configure TLabelframe
-relief groove
-borderwidth 2
80 ttk
::style configure TNotebook
-tabmargins {2 2 1 0}
81 ttk
::style configure TNotebook.Tab
\
82 -padding {4 2} -background $colors(-darker)
83 ttk
::style map TNotebook.Tab
\
84 -background [list selected
$colors(-frame)] \
85 -expand [list selected
{2 2 1 0}] \
89 ttk
::style configure Heading
-font TkHeadingFont
-relief raised
90 ttk
::style configure Treeview
-background $colors(-window)
91 ttk
::style map Treeview
\
92 -background [list selected
$colors(-selectbg)] \
93 -foreground [list selected
$colors(-selectfg)] ;
95 ttk
::style configure TScale
\
96 -groovewidth 4 -troughrelief sunken
\
97 -sliderwidth raised
-borderwidth 2
98 ttk
::style configure TProgressbar
\
99 -background $colors(-selectbg) -borderwidth 0