diff options
author | Karl Berry <karl@freefriends.org> | 2021-02-14 18:51:30 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-02-14 18:51:30 +0000 |
commit | 9a776cf346f43f98516eae74054f843870d07dd9 (patch) | |
tree | 33122956f2c50fd8f3c5971803a4e8807c340a95 /Build/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl | |
parent | 878ca3faa641b83150ddcdf9c5bdea188247036e (diff) |
doc,sync
git-svn-id: svn://tug.org/texlive/trunk@57738 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl')
-rwxr-xr-x | Build/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl | 36 |
1 files changed, 17 insertions, 19 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl b/Build/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl index c6403865704..1afe782355b 100755 --- a/Build/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl +++ b/Build/source/texk/texlive/linked_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 \ - "[__ "Current"]: [format {%.2f} $::tkfontscale]" + .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 |