summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tltcl
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-10-05 03:01:15 +0000
committerNorbert Preining <norbert@preining.info>2019-10-05 03:01:15 +0000
commit72c9345e5bafe708888bf65448a81d1aee8275ed (patch)
treea1a99929b3d7307572844833f09ad7ba5ad1405d /systems/texlive/tlnet/tlpkg/tltcl
parent9d9c04e14d0da9dd7829d0ec896aabfd50414fd8 (diff)
CTAN sync 201910050301
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl')
-rw-r--r--systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl8
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 {