summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2021-02-11 13:09:50 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2021-02-11 13:09:50 +0000
commit6cf0c8fdcd4d02efd21775c85e46d84e07194b7a (patch)
tree328ad542f5f9b93656f8ede14cff486aff085663 /Master/tlpkg/tltcl
parentbafb328203deff338e0b786a80dc845208cb3392 (diff)
Tcl/Tk GUIs: better support for font scaling and HiDPI
git-svn-id: svn://tug.org/texlive/trunk@57711 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tltcl')
-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