1# 2# $Id$ 3# 4# Settings for 'xpnative' theme 5# 6 7namespace eval ttk::theme::xpnative { 8 9 ttk::style theme settings xpnative { 10 11 ttk::style configure . \ 12 -background SystemButtonFace \ 13 -foreground SystemWindowText \ 14 -selectforeground SystemHighlightText \ 15 -selectbackground SystemHighlight \ 16 -font TkDefaultFont \ 17 ; 18 19 ttk::style map "." \ 20 -foreground [list disabled SystemGrayText] \ 21 ; 22 23 ttk::style configure TButton -anchor center -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} 27 28 ttk::style configure TNotebook -tabmargins {2 2 2 0} 29 ttk::style map TNotebook.Tab \ 30 -expand [list selected {2 2 2 2}] 31 32 # Treeview: 33 ttk::style configure Heading -font TkHeadingFont 34 ttk::style configure Treeview -background SystemWindow 35 ttk::style map Treeview \ 36 -background [list selected SystemHighlight] \ 37 -foreground [list selected SystemHighlightText] ; 38 39 ttk::style configure TLabelframe.Label -foreground "#0046d5" 40 41 # OR: -padding {3 3 3 6}, which some apps seem to use. 42 ttk::style configure TEntry -padding {2 2 2 4} 43 ttk::style map TEntry \ 44 -selectbackground [list !focus SystemWindow] \ 45 -selectforeground [list !focus SystemWindowText] \ 46 ; 47 ttk::style configure TCombobox -padding 2 48 ttk::style map TCombobox \ 49 -selectbackground [list !focus SystemWindow] \ 50 -selectforeground [list !focus SystemWindowText] \ 51 -foreground [list \ 52 disabled SystemGrayText \ 53 {readonly focus} SystemHighlightText \ 54 ] \ 55 -focusfill [list {readonly focus} SystemHighlight] \ 56 ; 57 58 ttk::style configure TSpinbox -padding {2 0 14 0} 59 ttk::style map TSpinbox \ 60 -selectbackground [list !focus SystemWindow] \ 61 -selectforeground [list !focus SystemWindowText] \ 62 ; 63 64 ttk::style configure Toolbutton -padding {4 4} 65 66 } 67} 68