texlive[50467] Master: Tlshell: remember language specified on the

[commits+siepo at tug.org]

Revision: 50467
          http://tug.org/svn/texlive?view=revision&revision=50467
Author:   siepo
Date:     2019-03-19 21:35:20 +0100 (Tue, 19 Mar 2019)
Log Message:
-----------
Tlshell: remember language specified on the command-line

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl
    trunk/Master/tlpkg/tltcl/tltcl.tcl

Modified: trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl
===================================================================
--- trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2019-03-19 15:09:11 UTC (rev 50466)
+++ trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2019-03-19 20:35:20 UTC (rev 50467)
@@ -132,6 +132,7 @@
     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 @@
   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 @@
     }
     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 @@
     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.

Modified: trunk/Master/tlpkg/tltcl/tltcl.tcl
===================================================================
--- trunk/Master/tlpkg/tltcl/tltcl.tcl	2019-03-19 15:09:11 UTC (rev 50466)
+++ trunk/Master/tlpkg/tltcl/tltcl.tcl	2019-03-19 20:35:20 UTC (rev 50467)
@@ -126,6 +126,7 @@
         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
       }
     }