summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
Diffstat (limited to 'Master')
-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 {