2 # $Id: xpTheme.tcl,v 1.4 2007/10/16 21:00:15 jenglish Exp $
4 # Settings for 'xpnative' theme
7 namespace eval ttk
::theme::xpnative {
9 ttk
::style theme settings xpnative
{
11 ttk
::style configure .
\
12 -background SystemButtonFace
\
13 -foreground SystemWindowText
\
14 -selectforeground SystemHighlightText
\
15 -selectbackground SystemHighlight
\
20 -foreground [list disabled SystemGrayText
] \
23 ttk
::style configure TButton
-padding {1 1} -width -11
24 ttk
::style configure TRadiobutton
-padding 2
25 ttk
::style configure TCheckbutton
-padding 2
26 ttk
::style configure TMenubutton
-padding {8 4} -anchor w
28 ttk
::style configure TNotebook
-tabmargins {2 2 2 0}
29 ttk
::style map TNotebook.Tab
\
30 -expand [list selected
{2 2 2 2}]
33 ttk
::style configure Heading
-font TkHeadingFont
34 ttk
::style configure Row
-background SystemWindow
35 ttk
::style configure Cell
-background SystemWindow
37 -background [list selected SystemHighlight
] \
38 -foreground [list selected SystemHighlightText
] ;
40 -background [list selected SystemHighlight
] \
41 -foreground [list selected SystemHighlightText
] ;
43 -background [list selected SystemHighlight
] \
44 -foreground [list selected SystemHighlightText
] ;
46 ttk
::style configure TLabelframe
-foreground "#0046d5"
48 # OR: -padding {3 3 3 6}, which some apps seem to use.
49 ttk
::style configure TEntry
-padding {2 2 2 4}
50 ttk
::style map TEntry
\
51 -selectbackground [list !focus SystemWindow
] \
52 -selectforeground [list !focus SystemWindowText
] \
54 ttk
::style configure TCombobox
-padding 2
55 ttk
::style map TCombobox
\
56 -selectbackground [list !focus SystemWindow
] \
57 -selectforeground [list !focus SystemWindowText
] \
58 -foreground [list {readonly
focus} SystemHighlightText
] \
59 -focusfill [list {readonly
focus} SystemHighlight
] \
62 ttk
::style configure Toolbutton
-padding {4 4}