diff options
Diffstat (limited to 'library/ttk/classicTheme.tcl')
-rw-r--r-- | library/ttk/classicTheme.tcl | 21 |
1 files changed, 8 insertions, 13 deletions
diff --git a/library/ttk/classicTheme.tcl b/library/ttk/classicTheme.tcl index aae1743..dc02134 100644 --- a/library/ttk/classicTheme.tcl +++ b/library/ttk/classicTheme.tcl @@ -42,15 +42,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} - set indMargin {0 1.5p 3p 1.5p} ttk::style configure TCheckbutton -indicatorrelief raised \ - -indicatordiameter 9p -indicatormargin $indMargin + -indicatordiameter 9p -indicatormargin {0 1.5p 3p 1.5p} ttk::style map TCheckbutton \ -indicatorcolor [list \ pressed $colors(-frame) \ @@ -59,7 +58,7 @@ namespace eval ttk::theme::classic { -indicatorrelief {alternate raised selected sunken pressed sunken} ttk::style configure TRadiobutton -indicatorrelief raised \ - -indicatordiameter 9p -indicatormargin $indMargin + -indicatordiameter 9p -indicatormargin {0 1.5p 3p 1.5p} ttk::style map TRadiobutton \ -indicatorcolor [list \ pressed $colors(-frame) \ @@ -68,7 +67,7 @@ namespace eval ttk::theme::classic { -indicatorrelief {alternate raised selected sunken pressed sunken} ttk::style configure TMenubutton -relief raised \ - -indicatormargin {3.75p 0} -padding "3m 1m" + -indicatormargin {3.75p 0} -padding {3m 1m} ttk::style configure TEntry -relief sunken -padding 1 -font TkTextFont ttk::style map TEntry -fieldbackground \ @@ -90,13 +89,12 @@ namespace eval ttk::theme::classic { -arrowsize 11.25p -width 11.25p ttk::style map TScrollbar -relief {{pressed !disabled} sunken} - set thickness 11.25p ttk::style configure TScale -sliderrelief raised \ - -sliderlength 22.5p -sliderthickness $thickness + -sliderlength 22.5p -sliderthickness 11.25p ttk::style map TScale -sliderrelief {{pressed !disabled} sunken} ttk::style configure TProgressbar -background SteelBlue \ - -barsize 22.5p -thickness $thickness + -barsize 22.5p -thickness 11.25p ttk::style configure TNotebook.Tab \ -padding {3m 1m} \ @@ -118,8 +116,7 @@ namespace eval ttk::theme::classic { # # Toolbar buttons: # - ttk::style configure Toolbutton -padding 1.5p -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 \ @@ -128,6 +125,4 @@ namespace eval ttk::theme::classic { ttk::style configure Sash \ -sashthickness 4.5p -sashpad 1.5 -handlesize 6p -handlepad 6p } - - unset indMargin thickness } |