diff options
Diffstat (limited to 'library/ttk/xpTheme.tcl')
| -rw-r--r-- | library/ttk/xpTheme.tcl | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/library/ttk/xpTheme.tcl b/library/ttk/xpTheme.tcl index fb73262..1c900ba 100644 --- a/library/ttk/xpTheme.tcl +++ b/library/ttk/xpTheme.tcl @@ -14,17 +14,15 @@ namespace eval ttk::theme::xpnative { -insertcolor SystemWindowText \ -font TkDefaultFont - ttk::style map "." \ - -foreground [list disabled SystemGrayText] + ttk::style map "." -foreground [list disabled SystemGrayText] - ttk::style configure TButton -anchor center -padding {1 1} -width -11 - ttk::style configure TRadiobutton -padding 2 - ttk::style configure TCheckbutton -padding 2 - ttk::style configure TMenubutton -padding {8 4} + ttk::style configure TButton -anchor center -padding 0.75p -width -11 + ttk::style configure TRadiobutton -padding 1.5p + ttk::style configure TCheckbutton -padding 1.5p + ttk::style configure TMenubutton -padding {6p 3p} ttk::style configure TNotebook -tabmargins {2 2 2 0} - ttk::style map TNotebook.Tab \ - -expand [list selected {2 2 2 2}] + ttk::style map TNotebook.Tab -expand {selected {2 2 2 2}} ttk::style configure TLabelframe.Label -foreground "#0046d5" @@ -33,26 +31,30 @@ namespace eval ttk::theme::xpnative { ttk::style map TEntry \ -selectbackground [list !focus SystemWindow] \ -selectforeground [list !focus SystemWindowText] - ttk::style configure TCombobox -padding 2 + ttk::style configure TCombobox -padding 1.5p ttk::style map TCombobox \ -selectbackground [list !focus SystemWindow] \ -selectforeground [list !focus SystemWindowText] \ -foreground [list \ disabled SystemGrayText \ - {readonly focus} SystemHighlightText \ + {readonly focus} SystemHighlightText \ ] \ -focusfill [list {readonly focus} SystemHighlight] - ttk::style configure TSpinbox -padding {2 0 14 0} + ttk::style configure TSpinbox -padding {1.5p 0 10.5p 0} ttk::style map TSpinbox \ -selectbackground [list !focus SystemWindow] \ -selectforeground [list !focus SystemWindowText] - ttk::style configure Toolbutton -padding {4 4} + ttk::style configure Toolbutton -padding 3p # Treeview: ttk::style configure Heading -font TkHeadingFont -relief raised - ttk::style configure Treeview -background SystemWindow + ttk::style configure Item \ + -indicatormargins {1.5p 1.5p 3p 1.5p} + ttk::style configure Treeview -background SystemWindow \ + -stripedbackground System3dLight -indent 15p + ttk::setTreeviewRowHeight ttk::style map Treeview \ -background [list disabled SystemButtonFace \ selected SystemHighlight] \ |