summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2019-10-04 10:43:13 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2019-10-04 10:43:13 +0000
commit61d90414621a09479d2b70d028e810e402c42c19 (patch)
tree4d8263b557d65aeb305a9afeb5b6007a39b9aa94 /Master/tlpkg/tltcl
parent610af38f9878afaa86a923713fd6e0cb9f476fa0 (diff)
Workaround for treeview widgets on hidpi displays on windows
git-svn-id: svn://tug.org/texlive/trunk@52279 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tltcl')
-rw-r--r--Master/tlpkg/tltcl/tltcl.tcl8
1 files changed, 6 insertions, 2 deletions
diff --git a/Master/tlpkg/tltcl/tltcl.tcl b/Master/tlpkg/tltcl/tltcl.tcl
index 06e6710a0b2..edb20eb5f02 100644
--- a/Master/tlpkg/tltcl/tltcl.tcl
+++ b/Master/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 {