diff options
Diffstat (limited to 'Master')
| -rw-r--r-- | Master/tlpkg/tltcl/tltcl.tcl | 8 |
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 { |