summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts
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/texmf-dist/scripts
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/texmf-dist/scripts')
-rwxr-xr-xMaster/texmf-dist/scripts/tlshell/tlshell.tcl34
1 files changed, 16 insertions, 18 deletions
diff --git a/Master/texmf-dist/scripts/tlshell/tlshell.tcl b/Master/texmf-dist/scripts/tlshell/tlshell.tcl
index c6403865704..50f863e6084 100755
--- a/Master/texmf-dist/scripts/tlshell/tlshell.tcl
+++ b/Master/texmf-dist/scripts/tlshell/tlshell.tcl
@@ -2382,30 +2382,35 @@ proc populate_main {} {
.mn.opt.paper add command -label "[__ "Advanced"] ..." \
-command papersize_advanced
- if {[llength $::langs] > 1} {
+
+ if {$::tcl_platform(platform) ne "windows"} {
incr inx
- .mn.opt add cascade -label [__ "GUI language"] \
- -menu .mn.opt.lang
- menu .mn.opt.lang
+ set ::inx_platforms $inx
+ .mn.opt add command -label "[__ "Platforms"] ..." -command platforms_select
+ }
+
+ if {[llength $::langs] > 1} {
+ .mn add cascade -label [__ "GUI language"] \
+ -menu .mn.lang
+ menu .mn.lang
foreach l [lsort $::langs] {
if {$l eq $::lang} {
set mlabel "$l *"
} else {
set mlabel $l
}
- .mn.opt.lang add command -label $mlabel \
+ .mn.lang add command -label $mlabel \
-command "set_language $l"
}
}
- incr inx
- .mn.opt add cascade -label [__ "GUI font scaling"] \
- -menu .mn.opt.fscale
- menu .mn.opt.fscale
- .mn.opt.fscale add command -label \
+ .mn add cascade -label [__ "GUI font scaling"] \
+ -menu .mn.fscale
+ menu .mn.fscale
+ .mn.fscale add command -label \
"[__ "Current"]: [format {%.2f} $::tkfontscale]"
foreach s {0.6 0.8 1 1.2 1.6 2 2.5 3 3.8 5 6 7.5 9} {
- .mn.opt.fscale add command -label $s -command "set_fontscale $s"
+ .mn.fscale add command -label $s -command "set_fontscale $s"
}
# browser-style keyboard shortcuts for scaling
@@ -2422,13 +2427,6 @@ proc populate_main {} {
bind . <Command-KeyRelease-0> {set_fontscale 1}
}
-
- if {$::tcl_platform(platform) ne "windows"} {
- incr inx
- set ::inx_platforms $inx
- .mn.opt add command -label "[__ "Platforms"] ..." -command platforms_select
- }
-
.mn add cascade -label [__ "Help"] -menu .mn.help -underline 0
menu .mn.help
.mn.help add command -label [__ "About"] -command about_cmd