diff options
Diffstat (limited to 'library/ttk/altTheme.tcl')
| -rw-r--r-- | library/ttk/altTheme.tcl | 56 |
1 files changed, 34 insertions, 22 deletions
diff --git a/library/ttk/altTheme.tcl b/library/ttk/altTheme.tcl index 8c0bfd6..2d1b6b9 100644 --- a/library/ttk/altTheme.tcl +++ b/library/ttk/altTheme.tcl @@ -8,6 +8,7 @@ namespace eval ttk::theme::alt { array set colors { -frame "#d9d9d9" -window "#ffffff" + -alternate "#f0f0f0" -darker "#c3c3c3" -border "#414141" -activebg "#ececec" @@ -29,21 +30,23 @@ namespace eval ttk::theme::alt { -font TkDefaultFont ttk::style map "." -background \ - [list disabled $colors(-frame) active $colors(-activebg)] ; - ttk::style map "." -foreground [list disabled $colors(-disabledfg)] ; - ttk::style map "." -embossed [list disabled 1] ; + [list disabled $colors(-frame) active $colors(-activebg)] + ttk::style map "." -foreground [list disabled $colors(-disabledfg)] + ttk::style map "." -embossed [list disabled 1] ttk::style configure TButton \ - -anchor center -width -11 -padding "1 1" \ + -anchor center -width -11 -padding 0.75p \ -relief raised -shiftrelief 1 \ -highlightthickness 1 -highlightcolor $colors(-frame) ttk::style map TButton -relief { - {pressed !disabled} sunken - {active !disabled} raised + {pressed !disabled} sunken + {active !disabled} raised } -highlightcolor {alternate black} - ttk::style configure TCheckbutton -indicatorcolor "#ffffff" -padding 2 - ttk::style configure TRadiobutton -indicatorcolor "#ffffff" -padding 2 + ttk::style configure TCheckbutton -indicatorcolor "#ffffff" \ + -indicatormargin {0 1.5p 3p 1.5p} -padding 1.5p + ttk::style configure TRadiobutton -indicatorcolor "#ffffff" \ + -indicatormargin {0 1.5p 3p 1.5p} -padding 1.5p ttk::style map TCheckbutton -indicatorcolor \ [list pressed $colors(-frame) \ alternate $colors(-altindicator) \ @@ -54,46 +57,53 @@ namespace eval ttk::theme::alt { disabled $colors(-frame)] ttk::style configure TMenubutton \ - -width -11 -padding "3 3" -relief raised + -width -11 -padding 2.25p -arrowsize 3.75p -relief raised ttk::style configure TEntry -padding 1 \ -focuswidth 2 -focuscolor $colors(-selectbg) ttk::style map TEntry -fieldbackground \ - [list readonly $colors(-frame) disabled $colors(-frame)] + [list readonly $colors(-frame) disabled $colors(-frame)] - ttk::style configure TCombobox -padding 1 \ + ttk::style configure TCombobox -padding 1 -arrowsize 10.5p \ -focuswidth 1 -focuscolor $colors(-selectbg) ttk::style map TCombobox -fieldbackground \ - [list readonly $colors(-frame) disabled $colors(-frame)] \ - -arrowcolor [list disabled $colors(-disabledfg)] + [list readonly $colors(-frame) disabled $colors(-frame)] \ + -arrowcolor [list disabled $colors(-disabledfg)] 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} \ -focuswidth 1 -focuscolor $colors(-selectbg) ttk::style map TSpinbox -fieldbackground \ [list readonly $colors(-frame) disabled $colors(-frame)] \ -arrowcolor [list disabled $colors(-disabledfg)] - ttk::style configure Toolbutton -relief flat -padding 2 + ttk::style configure Toolbutton -relief flat -padding 1.5p ttk::style map Toolbutton -relief \ {disabled flat selected sunken pressed sunken active raised} ttk::style map Toolbutton -background \ [list pressed $colors(-darker) active $colors(-activebg)] - ttk::style configure TScrollbar -relief raised + ttk::style configure TScrollbar -relief raised \ + -arrowsize 10.5p -width 10.5p ttk::style configure TLabelframe -relief groove -borderwidth 2 - ttk::style configure TNotebook -tabmargins {2 2 1 0} + ttk::style configure TNotebook -tabmargins {1.5p 1.5p 0.75p 0} ttk::style configure TNotebook.Tab -background $colors(-darker) \ - -padding {4 2} + -padding {3p 1.5p} ttk::style map TNotebook.Tab \ -background [list selected $colors(-frame)] \ - -expand [list selected {2 2 1 0}] \ + -expand {selected {1.5p 1.5p 0.75p 0}} # Treeview: ttk::style configure Heading -font TkHeadingFont -relief raised - ttk::style configure Treeview -background $colors(-window) + ttk::style configure Item \ + -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)] \ @@ -101,9 +111,11 @@ namespace eval ttk::theme::alt { selected $colors(-selectfg)] ttk::style configure TScale \ - -groovewidth 4 -troughrelief sunken -borderwidth 2 + -groovewidth 3p -troughrelief sunken \ + -sliderthickness 11.25p -borderwidth 2 ttk::style configure TProgressbar \ - -background $colors(-selectbg) -borderwidth 0 + -background $colors(-selectbg) -borderwidth 0 \ + -barsize 22.5p -thickness 11.25p } } |