diff options
author | csaba <csaba> | 2024-05-13 12:55:52 (GMT) |
---|---|---|
committer | csaba <csaba> | 2024-05-13 12:55:52 (GMT) |
commit | 645e704d85418ea761b72d4fb0e275219ba2183f (patch) | |
tree | 3b4f158e35d24de5450601a28f8146542af1d5cd /library | |
parent | d28b9c27801b919bbfa99fd7576015e9ed77cb34 (diff) | |
download | tk-645e704d85418ea761b72d4fb0e275219ba2183f.zip tk-645e704d85418ea761b72d4fb0e275219ba2183f.tar.gz tk-645e704d85418ea761b72d4fb0e275219ba2183f.tar.bz2 |
Better way to set the borderwidth of two style elements of the "classic" theme to 2.
Diffstat (limited to 'library')
-rw-r--r-- | library/ttk/classicTheme.tcl | 5 | ||||
-rw-r--r-- | library/ttk/defaults.tcl | 4 |
2 files changed, 5 insertions, 4 deletions
diff --git a/library/ttk/classicTheme.tcl b/library/ttk/classicTheme.tcl index 1d613fa..2a41fbf 100644 --- a/library/ttk/classicTheme.tcl +++ b/library/ttk/classicTheme.tcl @@ -65,7 +65,8 @@ namespace eval ttk::theme::classic { selected $colors(-indicator)] \ -indicatorrelief {alternate raised selected sunken pressed sunken} - ttk::style configure TMenubutton -relief raised -padding "3m 1m" + ttk::style configure TMenubutton -relief raised \ + -indicatorborderwidth 2 -padding "3m 1m" ttk::style configure TEntry -relief sunken -padding 1 -font TkTextFont ttk::style map TEntry -fieldbackground \ @@ -89,7 +90,7 @@ namespace eval ttk::theme::classic { ttk::style configure TScrollbar -relief raised -arrowsize 12 -width 12 ttk::style map TScrollbar -relief {{pressed !disabled} sunken} - ttk::style configure TScale -sliderrelief raised + ttk::style configure TScale -sliderrelief raised -sliderborderwidth 2 ttk::style map TScale -sliderrelief {{pressed !disabled} sunken} ttk::style configure TProgressbar -background SteelBlue diff --git a/library/ttk/defaults.tcl b/library/ttk/defaults.tcl index b68f501..2a7d2c3 100644 --- a/library/ttk/defaults.tcl +++ b/library/ttk/defaults.tcl @@ -68,7 +68,7 @@ namespace eval ttk::theme::default { [list alternate raised] ttk::style configure TMenubutton \ - -relief raised -padding "10 3" + -relief raised -indicatorborderwidth 1 -padding "10 3" ttk::style configure TEntry \ -fieldbackground white -padding 1 \ @@ -101,7 +101,7 @@ namespace eval ttk::theme::default { -arrowcolor [list disabled $colors(-disabledfg)] ttk::style configure TScale \ - -sliderrelief raised + -sliderrelief raised -sliderborderwidth 1 ttk::style configure TProgressbar \ -background $colors(-selectbg) |