diff options
| author | csaba <csaba> | 2024-05-09 18:39:12 (GMT) |
|---|---|---|
| committer | csaba <csaba> | 2024-05-09 18:39:12 (GMT) |
| commit | f30fccea2dea24ae6c8a5c323532347d1d544ba7 (patch) | |
| tree | 6f34210f166ccb52665b1b3e1b1c4cb79a4032ca /library/ttk | |
| parent | 1a687a43e99778d830cc2d49ff3f9e0129d34083 (diff) | |
| download | tk-f30fccea2dea24ae6c8a5c323532347d1d544ba7.zip tk-f30fccea2dea24ae6c8a5c323532347d1d544ba7.tar.gz tk-f30fccea2dea24ae6c8a5c323532347d1d544ba7.tar.bz2 | |
Improvements related to the "classic" theme, submitted by Emiliano Gavilan (see ticket [aa2dd4c16d]).
Diffstat (limited to 'library/ttk')
| -rw-r--r-- | library/ttk/classicTheme.tcl | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/library/ttk/classicTheme.tcl b/library/ttk/classicTheme.tcl index 30c6c8b..9477a24 100644 --- a/library/ttk/classicTheme.tcl +++ b/library/ttk/classicTheme.tcl @@ -12,7 +12,7 @@ namespace eval ttk::theme::classic { -window "#ffffff" -alternate "#f0f0f0" -activebg "#ececec" - -troughbg "#c3c3c3" + -troughbg "#b3b3b3" -selectbg "#c3c3c3" -selectfg "#000000" -disabledfg "#a3a3a3" @@ -32,7 +32,9 @@ namespace eval ttk::theme::classic { -highlightcolor $colors(-frame) \ -highlightthickness 1 \ -selectborderwidth 1 \ - -insertwidth 2 + -insertwidth 2 \ + -borderwidth 1 \ + -focuswidth 0 # To match pre-Xft X11 appearance, use: # ttk::style configure . -font {Helvetica 12 bold} @@ -49,7 +51,7 @@ namespace eval ttk::theme::classic { ttk::style map TButton -relief {{!disabled pressed} sunken} ttk::style configure TCheckbutton -indicatorrelief raised \ - -indicatormargin {0 1.5p 3p 1.5p} + -indicatormargin {0 1.5p 3p 1.5p} -borderwidth 1 ttk::style map TCheckbutton \ -indicatorcolor [list \ pressed $colors(-frame) \ @@ -58,7 +60,7 @@ namespace eval ttk::theme::classic { -indicatorrelief {alternate raised selected sunken pressed sunken} ttk::style configure TRadiobutton -indicatorrelief raised \ - -indicatormargin {0 1.5p 3p 1.5p} + -indicatormargin {0 1.5p 3p 1.5p} -borderwidth 1 ttk::style map TRadiobutton \ -indicatorcolor [list \ pressed $colors(-frame) \ @@ -73,32 +75,35 @@ namespace eval ttk::theme::classic { ttk::style map TEntry -fieldbackground \ [list readonly $colors(-frame) disabled $colors(-frame)] - ttk::style configure TCombobox -padding 1 -arrowsize 11.75p + ttk::style element create Combobox.downarrow from default + ttk::style configure TCombobox -padding 1 -arrowsize 9p ttk::style map TCombobox -fieldbackground \ [list readonly $colors(-frame) disabled $colors(-frame)] ttk::style configure ComboboxPopdownFrame \ -relief solid -borderwidth 1 + ttk::style element create Spinbox.uparrow from default + ttk::style element create Spinbox.downarrow from default 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 11.25p -width 11.25p -troughborderwidth 2 + ttk::style configure TScrollbar -relief raised -arrowsize 9p -width 9p ttk::style map TScrollbar -relief {{pressed !disabled} sunken} ttk::style configure TScale -sliderrelief raised \ - -sliderlength 22.5p -sliderthickness 11.25p -troughborderwidth 2 + -sliderlength 22.5p -sliderthickness 11.25p ttk::style map TScale -sliderrelief {{pressed !disabled} sunken} ttk::style configure TProgressbar -background SteelBlue \ - -barsize 22.5p -thickness 11.25p -troughborderwidth 2 + -barsize 22.5p -thickness 11.25p ttk::style configure TNotebook.Tab \ -padding {3m 1m} \ - -background $colors(-troughbg) + -background $colors(-troughbg) \ + -focussolid 1 ttk::style map TNotebook.Tab -background [list selected $colors(-frame)] # Treeview: |