diff options
author | Norbert Preining <norbert@preining.info> | 2019-10-05 03:01:15 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-10-05 03:01:15 +0000 |
commit | 72c9345e5bafe708888bf65448a81d1aee8275ed (patch) | |
tree | a1a99929b3d7307572844833f09ad7ba5ad1405d /systems/texlive/tlnet/tlpkg/tltcl | |
parent | 9d9c04e14d0da9dd7829d0ec896aabfd50414fd8 (diff) |
CTAN sync 201910050301
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl b/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl index 06e6710a0b..edb20eb5f0 100644 --- a/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl +++ b/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl @@ -394,9 +394,13 @@ font configure titlefont -weight bold \ #font configure it_font -slant italic # width of '0', as a very rough estimate of average character width -# assume height == width*2 set ::cw \ - [expr {max([font measure TkDefaultFont "0"],[font measure TkTextFont "0"])}] + [expr {max([font measure TkDefaultFont "0"],[font measure TkTextFont "0"])}] + +# height: assume height == width*2 + +# workaround for treeview on windows on HiDPI displays +ttk::style configure Treeview -rowheight [expr {3 * $::cw}] # icon catch { |