diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2021-02-11 13:09:50 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2021-02-11 13:09:50 +0000 |
| commit | 6cf0c8fdcd4d02efd21775c85e46d84e07194b7a (patch) | |
| tree | 328ad542f5f9b93656f8ede14cff486aff085663 /Master/texmf-dist/scripts | |
| parent | bafb328203deff338e0b786a80dc845208cb3392 (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-x | Master/texmf-dist/scripts/tlshell/tlshell.tcl | 34 |
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 |