diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2021-04-12 11:07:52 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2021-04-12 11:07:52 +0000 |
| commit | 9568d4a45727d6db9ba6e5e2c6a3b0fad1ee4c22 (patch) | |
| tree | 569735ea93121221b65793768a87c016a1c27fbc | |
| parent | 7e248bbadd8770745545f248c85e30c7f9c0fe88 (diff) | |
tltcl.tcl: further refinements to scaling support on Linux
git-svn-id: svn://tug.org/texlive/trunk@58849 c570f23f-e606-0410-a88d-b1316a301751
| -rw-r--r-- | Master/tlpkg/tltcl/tltcl.tcl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/Master/tlpkg/tltcl/tltcl.tcl b/Master/tlpkg/tltcl/tltcl.tcl index 4ed73859cb4..af9edbceef8 100644 --- a/Master/tlpkg/tltcl/tltcl.tcl +++ b/Master/tlpkg/tltcl/tltcl.tcl @@ -450,6 +450,11 @@ proc redo_fonts {} { font configure titlefont {*}[font configure TkDefaultFont] font configure titlefont -weight bold \ -size [expr {round(1.5 * [font actual titlefont -size])}] + + if $::plain_unix { + ttk::style configure TCombobox -arrowsize [expr {1.5*$::cw}] + ttk::style configure Item -indicatorsize [expr {1.5*$::cw}] + } } # initialize scaling factor @@ -807,9 +812,9 @@ if $::plain_unix { # from Geometric Shapes, 25a0-25ff set ::chk0 \u25a1 - set ::chk1 \u25a0 + set ::chk1 \u25a3 set ::rad0 \u25cb - set ::rad1 \u25cf + set ::rad1 \u25c9 # layouts copied from default theme, with indicator removed ttk::style layout TCheckbutton "Checkbutton.padding -sticky nswe -children {Checkbutton.focus -side left -sticky w -children {Checkbutton.label -sticky nswe}}" @@ -860,4 +865,3 @@ if $::plain_unix { bind TRadiobutton <Unmap> \ {+trace remove variable [%W cget -variable] write [list tlupdate_radio %W]} } - |