diff options
author | csaba <csaba> | 2022-12-22 20:10:25 (GMT) |
---|---|---|
committer | csaba <csaba> | 2022-12-22 20:10:25 (GMT) |
commit | 1ba683df5b82930fde24c4b820700304a278296a (patch) | |
tree | 0570b4cad6bb56edc2a1625a6497b8dfcc5e2cc5 /library | |
parent | 1ec19ddeca60ebfc40c78fbb42fdfa64c1ab666e (diff) | |
download | tk-1ba683df5b82930fde24c4b820700304a278296a.zip tk-1ba683df5b82930fde24c4b820700304a278296a.tar.gz tk-1ba683df5b82930fde24c4b820700304a278296a.tar.bz2 |
For completeness, added the automatic scaling to the winnative theme, too
Diffstat (limited to 'library')
-rw-r--r-- | library/ttk/winTheme.tcl | 42 |
1 files changed, 28 insertions, 14 deletions
diff --git a/library/ttk/winTheme.tcl b/library/ttk/winTheme.tcl index fd98589..520058a 100644 --- a/library/ttk/winTheme.tcl +++ b/library/ttk/winTheme.tcl @@ -3,6 +3,9 @@ # namespace eval ttk::theme::winnative { + + namespace import ::tk::ScaleNum + ttk::style theme settings winnative { ttk::style configure "." \ @@ -21,13 +24,16 @@ namespace eval ttk::theme::winnative { ttk::style configure TButton \ -anchor center -width -11 -relief raised -shiftrelief 1 - ttk::style configure TCheckbutton -padding "2 4" - ttk::style configure TRadiobutton -padding "2 4" - ttk::style configure TMenubutton \ - -padding "8 4" -arrowsize 3 -relief raised - ttk::style map TButton -relief {{!disabled pressed} sunken} + set padding [list [ScaleNum 2] [ScaleNum 4]] + ttk::style configure TCheckbutton -padding $padding + ttk::style configure TRadiobutton -padding $padding + + ttk::style configure TMenubutton \ + -padding [list [ScaleNum 8] [ScaleNum 4]] \ + -arrowsize [ScaleNum 3] -relief raised + ttk::style configure TEntry \ -padding 2 -selectborderwidth 0 -insertwidth 1 ttk::style map TEntry \ @@ -37,7 +43,7 @@ namespace eval ttk::theme::winnative { -selectforeground [list !focus SystemWindowText] \ ; - ttk::style configure TCombobox -padding 2 + ttk::style configure TCombobox -padding [ScaleNum 2] ttk::style map TCombobox \ -selectbackground [list !focus SystemWindow] \ -selectforeground [list !focus SystemWindowText] \ @@ -55,19 +61,24 @@ namespace eval ttk::theme::winnative { ttk::style configure ComboboxPopdownFrame \ -borderwidth 1 -relief solid - ttk::style configure TSpinbox -padding {2 0 16 0} + set l [ScaleNum 2]; set r [ScaleNum 16] + ttk::style configure TSpinbox -padding [list $l 0 $r 0] ttk::style configure TLabelframe -borderwidth 2 -relief groove - ttk::style configure Toolbutton -relief flat -padding {8 4} + ttk::style configure Toolbutton -relief flat \ + -padding [list [ScaleNum 8] [ScaleNum 4]] ttk::style map Toolbutton -relief \ - {disabled flat selected sunken pressed sunken active raised} + {disabled flat selected sunken pressed sunken active raised} - ttk::style configure TScale -groovewidth 4 + ttk::style configure TScale -groovewidth [ScaleNum 4] - ttk::style configure TNotebook -tabmargins {2 2 2 0} - ttk::style configure TNotebook.Tab -padding {3 1} -borderwidth 1 - ttk::style map TNotebook.Tab -expand [list selected {2 2 2 0}] + set m [ScaleNum 2] + set margins [list $m $m $m 0] + ttk::style configure TNotebook -tabmargins $margins + ttk::style configure TNotebook.Tab \ + -padding [list [ScaleNum 3] [ScaleNum 1]] -borderwidth 1 + ttk::style map TNotebook.Tab -expand [list selected $margins] # Treeview: ttk::style configure Heading -font TkHeadingFont -relief raised @@ -80,6 +91,9 @@ namespace eval ttk::theme::winnative { selected SystemHighlightText] ttk::style configure TProgressbar \ - -background SystemHighlight -borderwidth 0 ; + -background SystemHighlight -borderwidth 0 \ + -barsize [ScaleNum 30] -thickness [ScaleNum 15] } + + unset padding l r m margins } |