diff options
Diffstat (limited to 'library/ttk/clamTheme.tcl')
| -rw-r--r-- | library/ttk/clamTheme.tcl | 63 |
1 files changed, 39 insertions, 24 deletions
diff --git a/library/ttk/clamTheme.tcl b/library/ttk/clamTheme.tcl index 707d849..6711d6c 100644 --- a/library/ttk/clamTheme.tcl +++ b/library/ttk/clamTheme.tcl @@ -39,13 +39,13 @@ namespace eval ttk::theme::clam { -background [list disabled $colors(-frame) \ active $colors(-lighter)] \ -foreground [list disabled $colors(-disabledfg)] \ - -selectbackground [list !focus $colors(-darkest)] \ - -selectforeground [list !focus white] + -selectbackground [list !focus $colors(-darkest)] \ + -selectforeground [list !focus white] # -selectbackground [list !focus "#847d73"] ttk::style configure TButton \ - -anchor center -width -11 -padding 5 -relief raised + -anchor center -width -11 -padding 3.75p -relief raised ttk::style map TButton \ -background [list \ disabled $colors(-frame) \ @@ -53,10 +53,10 @@ namespace eval ttk::theme::clam { active $colors(-lighter)] \ -lightcolor [list pressed $colors(-darker)] \ -darkcolor [list pressed $colors(-darker)] \ - -bordercolor [list alternate "#000000"] + -bordercolor {alternate #000000} ttk::style configure Toolbutton \ - -anchor center -padding 2 -relief flat + -anchor center -padding 1.5p -relief flat ttk::style map Toolbutton \ -relief [list \ disabled flat \ @@ -72,12 +72,12 @@ namespace eval ttk::theme::clam { ttk::style configure TCheckbutton \ -indicatorbackground "#ffffff" \ - -indicatormargin {1 1 4 1} \ - -padding 2 + -indicatormargin {0.75p 0.75p 3p 0.75p} \ + -padding 1.5p ttk::style configure TRadiobutton \ -indicatorbackground "#ffffff" \ - -indicatormargin {1 1 4 1} \ - -padding 2 + -indicatormargin {0.75p 0.75p 3p 0.75p} \ + -padding 1.5p ttk::style map TCheckbutton -indicatorbackground \ [list pressed $colors(-frame) \ {!disabled alternate} $colors(-altindicator) \ @@ -90,15 +90,17 @@ namespace eval ttk::theme::clam { disabled $colors(-frame)] ttk::style configure TMenubutton \ - -width -11 -padding 5 -relief raised + -width -11 -arrowsize 3.75p -arrowpadding 2.25p -padding 3.75p \ + -relief raised ttk::style configure TEntry -padding 1 -insertwidth 1 ttk::style map TEntry \ - -background [list readonly $colors(-frame)] \ - -bordercolor [list focus $colors(-selectbg)] \ - -lightcolor [list focus "#6f9dc6"] + -background [list readonly $colors(-frame)] \ + -bordercolor [list focus $colors(-selectbg)] \ + -lightcolor [list focus #6f9dc6] - ttk::style configure TCombobox -padding 1 -insertwidth 1 + ttk::style configure TCombobox -padding 1 -insertwidth 1 \ + -arrowsize 10.5p ttk::style map TCombobox \ -background [list active $colors(-lighter) \ pressed $colors(-lighter)] \ @@ -110,34 +112,47 @@ namespace eval ttk::theme::clam { ttk::style configure ComboboxPopdownFrame \ -relief solid -borderwidth 1 - ttk::style configure TSpinbox -arrowsize 10 -padding {2 0 10 0} + ttk::style configure TSpinbox -arrowsize 7.5p -padding {1.5p 0 7.5p 0} ttk::style map TSpinbox \ - -background [list readonly $colors(-frame)] \ + -background [list readonly $colors(-frame)] \ -arrowcolor [list disabled $colors(-disabledfg)] \ -bordercolor [list focus $colors(-selectbg)] - ttk::style configure TNotebook.Tab -padding {6 2 6 2} + ttk::style configure TNotebook.Tab -padding {4.5p 1.5p 4.5p 1.5p} ttk::style map TNotebook.Tab \ - -padding [list selected {6 4 6 2}] \ + -padding {selected {4.5p 3p 4.5p 1.5p}} \ -background [list selected $colors(-frame) {} $colors(-darker)] \ -lightcolor [list selected $colors(-lighter) {} $colors(-dark)] # Treeview: ttk::style configure Heading \ - -font TkHeadingFont -relief raised -padding {3} - ttk::style configure Treeview -background $colors(-window) + -font TkHeadingFont -relief raised -padding 2.25p + ttk::style configure Item -indicatorsize 9p \ + -indicatormargins {1.5p 1.5p 3p 1.5p} + ttk::style configure Treeview -background $colors(-window) \ + -stripedbackground $colors(-lighter) -indent 15p + ttk::setTreeviewRowHeight + ttk::style configure Treeview.Separator \ + -background $colors(-lighter) ttk::style map Treeview \ -background [list disabled $colors(-frame)\ selected $colors(-selectbg)] \ -foreground [list disabled $colors(-disabledfg) \ selected $colors(-selectfg)] - ttk::style configure TLabelframe \ - -labeloutside true -labelmargins {0 0 0 4} \ + ttk::style configure TLabelframe \ + -labeloutside true -labelmargins {0 0 0 3p} \ -borderwidth 2 -relief raised - ttk::style configure TProgressbar -background $colors(-frame) + ttk::style configure TScrollbar -gripcount 3.75p \ + -arrowsize 10.5p -width 10.5p - ttk::style configure Sash -sashthickness 6 -gripcount 10 + ttk::style configure TScale -gripcount 3.75p \ + -arrowsize 10.5p -sliderlength 22.5p + + ttk::style configure TProgressbar -background $colors(-frame) \ + -arrowsize 10.5p -sliderlength 22.5p + + ttk::style configure Sash -sashthickness 4.5p -gripcount 7.5p } } |