2 # $Id: defaults.tcl,v 1.6 2007/12/13 15:27:08 dgp Exp $
4 # Settings for default theme.
7 namespace eval ttk
::theme::default {
20 ttk
::style theme settings
default {
22 ttk
::style configure
"." \
24 -background $colors(-frame) \
26 -troughcolor $colors(-darker) \
28 -selectborderwidth 1 \
29 -selectbackground $colors(-selectbg) \
30 -selectforeground $colors(-selectfg) \
32 -indicatordiameter 10 \
35 ttk
::style map
"." -background \
36 [list disabled
$colors(-frame) active
$colors(-activebg)]
37 ttk
::style map
"." -foreground \
38 [list disabled
$colors(-disabledfg)]
40 ttk
::style configure TButton
\
41 -anchor center
-padding "3 3" -width -9 \
42 -relief raised
-shiftrelief 1
43 ttk
::style map TButton
-relief [list {!disabled pressed
} sunken
]
45 ttk
::style configure TCheckbutton
\
46 -indicatorcolor "#ffffff" -indicatorrelief sunken
-padding 1
47 ttk
::style map TCheckbutton
-indicatorcolor \
48 [list pressed
$colors(-activebg) selected
$colors(-indicator)]
50 ttk
::style configure TRadiobutton
\
51 -indicatorcolor "#ffffff" -indicatorrelief sunken
-padding 1
52 ttk
::style map TRadiobutton
-indicatorcolor \
53 [list pressed
$colors(-activebg) selected
$colors(-indicator)]
55 ttk
::style configure TMenubutton
\
56 -relief raised
-padding "10 3"
58 ttk
::style configure TEntry
\
59 -relief sunken
-fieldbackground white
-padding 1
60 ttk
::style map TEntry
-fieldbackground \
61 [list readonly
$colors(-frame) disabled
$colors(-frame)]
63 ttk
::style configure TCombobox
-arrowsize 12 -padding 1
64 ttk
::style map TCombobox
-fieldbackground \
65 [list readonly
$colors(-frame) disabled
$colors(-frame)]
67 ttk
::style configure TLabelframe
\
68 -relief groove
-borderwidth 2
70 ttk
::style configure TScrollbar
\
71 -width 12 -arrowsize 12
72 ttk
::style map TScrollbar
\
73 -arrowcolor [list disabled
$colors(-disabledfg)]
75 ttk
::style configure TScale
\
77 ttk
::style configure TProgressbar
\
78 -background $colors(-selectbg)
80 ttk
::style configure TNotebook.Tab
\
81 -padding {4 2} -background $colors(-darker)
82 ttk
::style map TNotebook.Tab
\
83 -background [list selected
$colors(-frame)]
87 ttk
::style configure Heading
-font TkHeadingFont
-relief raised
88 ttk
::style configure Row
-background $colors(-window)
89 ttk
::style configure Cell
-background $colors(-window)
91 -background [list selected
$colors(-selectbg)] \
92 -foreground [list selected
$colors(-selectfg)] ;
94 -background [list selected
$colors(-selectbg)] \
95 -foreground [list selected
$colors(-selectfg)] ;
97 -background [list selected
$colors(-selectbg)] \
98 -foreground [list selected
$colors(-selectfg)] ;
103 ttk
::style layout Toolbutton
{
104 Toolbutton.border
-children {
105 Toolbutton.padding
-children {
111 ttk
::style configure Toolbutton
\
112 -padding 2 -relief flat
113 ttk
::style map Toolbutton
-relief \
114 [list disabled flat selected sunken pressed sunken active raised
]
115 ttk
::style map Toolbutton
-background \
116 [list pressed
$colors(-darker) active
$colors(-activebg)]