diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-10-04 10:43:13 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-10-04 10:43:13 +0000 |
commit | 61d90414621a09479d2b70d028e810e402c42c19 (patch) | |
tree | 4d8263b557d65aeb305a9afeb5b6007a39b9aa94 /Master/tlpkg | |
parent | 610af38f9878afaa86a923713fd6e0cb9f476fa0 (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')
-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 { |