diff options
Diffstat (limited to 'Master/tlpkg/tltcl')
-rw-r--r-- | Master/tlpkg/tltcl/tltcl.tcl | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/Master/tlpkg/tltcl/tltcl.tcl b/Master/tlpkg/tltcl/tltcl.tcl index 562b148125e..6c673ddee3f 100644 --- a/Master/tlpkg/tltcl/tltcl.tcl +++ b/Master/tlpkg/tltcl/tltcl.tcl @@ -454,13 +454,10 @@ if {[info exists ::invoker] && $::invoker eq "tlshell"} { set ::tkfontscale 10 } } -if {$::tkfontscale eq ""} { - if {[winfo vrootheight .] > 2000 && [winfo vrootwidth .] > 3000} { - set ::tkfontscale 2 - } else { - set ::tkfontscale 1 - } -} +# most systems with a HiDPI display will be configured for it. +# set therefore the default simply to 1. +# users still have the option to scale fonts via the menu. +if {$::tkfontscale eq ""} {set ::tkfontscale 1} redo_fonts # icon |