diff options
Diffstat (limited to 'library/ttk/classicTheme.tcl')
| -rw-r--r-- | library/ttk/classicTheme.tcl | 41 |
1 files changed, 28 insertions, 13 deletions
diff --git a/library/ttk/classicTheme.tcl b/library/ttk/classicTheme.tcl index 609c5d7..7964034 100644 --- a/library/ttk/classicTheme.tcl +++ b/library/ttk/classicTheme.tcl @@ -10,6 +10,7 @@ namespace eval ttk::theme::classic { array set colors { -frame "#d9d9d9" -window "#ffffff" + -alternate "#f0f0f0" -activebg "#ececec" -troughbg "#b3b3b3" -selectbg "#c3c3c3" @@ -42,13 +43,14 @@ namespace eval ttk::theme::classic { ttk::style map "." -foreground \ [list disabled $colors(-disabledfg)] - ttk::style map "." -highlightcolor [list focus black] + ttk::style map "." -highlightcolor {focus black} ttk::style configure TButton \ -anchor center -padding "3m 1m" -relief raised -shiftrelief 1 - ttk::style map TButton -relief [list {!disabled pressed} sunken] + ttk::style map TButton -relief {{!disabled pressed} sunken} - ttk::style configure TCheckbutton -indicatorrelief raised + ttk::style configure TCheckbutton -indicatorrelief raised \ + -indicatormargin {0 1.5p 3p 1.5p} ttk::style map TCheckbutton \ -indicatorcolor [list \ pressed $colors(-frame) \ @@ -56,7 +58,8 @@ namespace eval ttk::theme::classic { selected $colors(-indicator)] \ -indicatorrelief {alternate raised selected sunken pressed sunken} - ttk::style configure TRadiobutton -indicatorrelief raised + ttk::style configure TRadiobutton -indicatorrelief raised \ + -indicatormargin {0 1.5p 3p 1.5p} ttk::style map TRadiobutton \ -indicatorcolor [list \ pressed $colors(-frame) \ @@ -65,14 +68,14 @@ namespace eval ttk::theme::classic { -indicatorrelief {alternate raised selected sunken pressed sunken} ttk::style configure TMenubutton -relief raised \ - -indicatorborderwidth 2 -padding "3m 1m" + -indicatormargin {3.75p 0} -padding {3m 1m} - ttk::style configure TEntry -relief sunken -padding 1 -font TkTextFont + ttk::style configure TEntry -padding 1 -font TkTextFont ttk::style map TEntry -fieldbackground \ [list readonly $colors(-frame) disabled $colors(-frame)] ttk::style element create Combobox.downarrow from default - ttk::style configure TCombobox -padding 1 -arrowsize 12 + ttk::style configure TCombobox -padding 1 -arrowsize 9p ttk::style map TCombobox -fieldbackground \ [list readonly $colors(-frame) disabled $colors(-frame)] ttk::style configure ComboboxPopdownFrame \ @@ -80,19 +83,22 @@ namespace eval ttk::theme::classic { ttk::style element create Spinbox.uparrow from default ttk::style element create Spinbox.downarrow from default - 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 -fieldbackground \ [list readonly $colors(-frame) disabled $colors(-frame)] ttk::style configure TLabelframe -borderwidth 2 -relief groove - ttk::style configure TScrollbar -relief raised -arrowsize 12 -width 12 + ttk::style configure TScrollbar -relief raised -arrowsize 9p -width 9p ttk::style map TScrollbar -relief {{pressed !disabled} sunken} - ttk::style configure TScale -sliderrelief raised -sliderborderwidth 2 + ttk::style configure TScale -sliderrelief raised \ + -sliderlength 22.5p -sliderthickness 11.25p ttk::style map TScale -sliderrelief {{pressed !disabled} sunken} - ttk::style configure TProgressbar -background SteelBlue + ttk::style configure TProgressbar -background SteelBlue \ + -barsize 22.5p -thickness 11.25p + ttk::style configure TNotebook.Tab \ -padding {3m 1m} \ -background $colors(-troughbg) \ @@ -101,7 +107,13 @@ namespace eval ttk::theme::classic { # Treeview: ttk::style configure Heading -font TkHeadingFont -relief raised - ttk::style configure Treeview -background $colors(-window) + ttk::style configure Item -indicatorsize 9p \ + -indicatormargins {1.5p 1.5p 3p 1.5p} + ttk::style configure Treeview -background $colors(-window) \ + -stripedbackground $colors(-alternate) -indent 15p + ttk::setTreeviewRowHeight + ttk::style configure Treeview.Separator \ + -background $colors(-alternate) ttk::style map Treeview \ -background [list disabled $colors(-frame)\ selected $colors(-selectbg)] \ @@ -111,10 +123,13 @@ namespace eval ttk::theme::classic { # # Toolbar buttons: # - ttk::style configure Toolbutton -padding 2 -relief flat -shiftrelief 2 + ttk::style configure Toolbutton -padding 1.5p -relief flat -shiftrelief 2 ttk::style map Toolbutton -relief \ {disabled flat selected sunken pressed sunken active raised} ttk::style map Toolbutton -background \ [list pressed $colors(-troughbg) active $colors(-activebg)] + + ttk::style configure Sash \ + -sashthickness 4.5p -sashpad 1.5 -handlesize 6p -handlepad 6p } } |