summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl/tltcl.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tltcl/tltcl.tcl')
-rw-r--r--Master/tlpkg/tltcl/tltcl.tcl11
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