summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xMaster/texmf-dist/scripts/tlshell/tlshell.tcl14
-rw-r--r--Master/tlpkg/tltcl/tltcl.tcl1
2 files changed, 12 insertions, 3 deletions
diff --git a/Master/texmf-dist/scripts/tlshell/tlshell.tcl b/Master/texmf-dist/scripts/tlshell/tlshell.tcl
index 5d066d86740..0113c25dfbe 100755
--- a/Master/texmf-dist/scripts/tlshell/tlshell.tcl
+++ b/Master/texmf-dist/scripts/tlshell/tlshell.tcl
@@ -132,6 +132,7 @@ proc long_message {str type {p "."}} {
err_exit "Unsupported type $type for long_message"
}
create_dlg .tlmg $p
+ wm title .tlmg ""
# wallpaper frame; see populate_main
pack [ttk::frame .tlmg.bg] -fill both -expand 1
@@ -1818,7 +1819,7 @@ proc set_paper {p} {
run_cmd "paper paper $p" 1
}
-proc set_language {l} {
+proc set_language_no_restart {l} {
set ok 1
if [catch {exec kpsewhich -var-value "TEXMFCONFIG"} d] {set ok 0}
if $ok {
@@ -1850,12 +1851,16 @@ proc set_language {l} {
}
catch {chan close $fid}
}
- if $ok {
+ return $ok
+} ; # set_language_no_restart
+
+proc set_language {l} {
+ if [set_language_no_restart $l] {
restart_self
} else {
tk_messageBox -message [__ "Cannot set default GUI language"] -icon error
}
-} ; # set_language
+}
##### running external commands #####
@@ -2237,6 +2242,9 @@ proc initialize {} {
lappend ::langs [string range [file tail $l] 0 end-3]
}
+ # store language in tlmgr configuration
+ set_language_no_restart $::lang
+
# in case we are going to do something with json:
# add json subdirectory to auto_path, but at low priority
# since the tcl/tk installation may already have a better implementation.
diff --git a/Master/tlpkg/tltcl/tltcl.tcl b/Master/tlpkg/tltcl/tltcl.tcl
index 58edf8c6433..4296cdc44d0 100644
--- a/Master/tlpkg/tltcl/tltcl.tcl
+++ b/Master/tlpkg/tltcl/tltcl.tcl
@@ -126,6 +126,7 @@ proc load_translations {} {
set messcat $f
break
} elseif {[string range $ln_f 0 1] eq [string range $::lang 0 1]} {
+ set ::lang [string range $::lang 0 1]
set maybe $f
}
}