summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tltcl
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2021-02-13 03:00:52 +0000
committerNorbert Preining <norbert@preining.info>2021-02-13 03:00:52 +0000
commit3d0d4d2ed250339f704c23ea8f24670c70d5981f (patch)
treed2b2e26eb1ac06b5cf1f172520122d00505a27d7 /systems/texlive/tlnet/tlpkg/tltcl
parentb787936c705583d07b90f96b1dbd90265937a80f (diff)
CTAN sync 202102130300
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl')
-rw-r--r--systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl11
1 files changed, 4 insertions, 7 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl b/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl
index 562b148125..6c673ddee3 100644
--- a/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl
+++ b/systems/texlive/tlnet/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