texlive[52279] Master/tlpkg/tltcl/tltcl.tcl: Workaround for treeview

[commits+siepo at tug.org]

Revision: 52279
          http://tug.org/svn/texlive?view=revision&revision=52279
Author:   siepo
Date:     2019-10-04 12:43:13 +0200 (Fri, 04 Oct 2019)
Log Message:
-----------
Workaround for treeview widgets on hidpi displays on windows

Modified Paths:
--------------
    trunk/Master/tlpkg/tltcl/tltcl.tcl

Modified: trunk/Master/tlpkg/tltcl/tltcl.tcl
===================================================================
--- trunk/Master/tlpkg/tltcl/tltcl.tcl	2019-10-03 23:53:39 UTC (rev 52278)
+++ trunk/Master/tlpkg/tltcl/tltcl.tcl	2019-10-04 10:43:13 UTC (rev 52279)
@@ -394,10 +394,14 @@
 #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 {
   image create photo tl_logo -file \