2 # $Id: defaults.tcl,v 1.4 2006/12/18 19:33:14 jenglish 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 -padding "3 3" -width -9 -relief raised
-shiftrelief 1
42 ttk
::style map TButton
-relief [list {!disabled pressed
} sunken
]
44 ttk
::style configure TCheckbutton
\
45 -indicatorcolor "#ffffff" -indicatorrelief sunken
-padding 1
46 ttk
::style map TCheckbutton
-indicatorcolor \
47 [list pressed
$colors(-activebg) selected
$colors(-indicator)]
49 ttk
::style configure TRadiobutton
\
50 -indicatorcolor "#ffffff" -indicatorrelief sunken
-padding 1
51 ttk
::style map TRadiobutton
-indicatorcolor \
52 [list pressed
$colors(-activebg) selected
$colors(-indicator)]
54 ttk
::style configure TMenubutton
\
55 -relief raised
-padding "10 3" -anchor w
57 ttk
::style configure TEntry
\
58 -relief sunken
-fieldbackground white
-padding 1
59 ttk
::style map TEntry
-fieldbackground \
60 [list readonly
$colors(-frame) disabled
$colors(-frame)]
62 ttk
::style configure TCombobox
-arrowsize 12 -padding 1
63 ttk
::style map TCombobox
-fieldbackground \
64 [list readonly
$colors(-frame) disabled
$colors(-frame)]
66 ttk
::style configure TLabelframe
\
67 -relief groove
-borderwidth 2
69 ttk
::style configure TScrollbar
\
70 -width 12 -arrowsize 12
71 ttk
::style map TScrollbar
\
72 -arrowcolor [list disabled
$colors(-disabledfg)]
74 ttk
::style configure TScale
\
76 ttk
::style configure TProgressbar
\
77 -background $colors(-selectbg)
79 ttk
::style configure TNotebook.Tab
\
80 -padding {4 2} -background $colors(-darker)
81 ttk
::style map TNotebook.Tab
\
82 -background [list selected
$colors(-frame)]
86 ttk
::style configure Heading
-font TkHeadingFont
-relief raised
87 ttk
::style configure Row
-background $colors(-window)
88 ttk
::style configure Cell
-background $colors(-window)
90 -background [list selected
$colors(-selectbg)] \
91 -foreground [list selected
$colors(-selectfg)] ;
93 -background [list selected
$colors(-selectbg)] \
94 -foreground [list selected
$colors(-selectfg)] ;
96 -background [list selected
$colors(-selectbg)] \
97 -foreground [list selected
$colors(-selectfg)] ;
102 ttk
::style layout Toolbutton
{
103 Toolbutton.border
-children {
104 Toolbutton.padding
-children {
110 ttk
::style configure Toolbutton
\
111 -padding 2 -relief flat
112 ttk
::style map Toolbutton
-relief \
113 [list disabled flat selected sunken pressed sunken active raised
]
114 ttk
::style map Toolbutton
-background \
115 [list pressed
$colors(-darker) active
$colors(-activebg)]