texlive[58346] Master/tlpkg/installer/install-tl-gui.tcl: Include

[commits+siepo at tug.org]

Revision: 58346
          http://tug.org/svn/texlive?view=revision&revision=58346
Author:   siepo
Date:     2021-03-14 13:03:08 +0100 (Sun, 14 Mar 2021)
Log Message:
-----------
Include titlebar in language switching

Modified Paths:
--------------
    trunk/Master/tlpkg/installer/install-tl-gui.tcl

Modified: trunk/Master/tlpkg/installer/install-tl-gui.tcl
===================================================================
--- trunk/Master/tlpkg/installer/install-tl-gui.tcl	2021-03-14 04:14:20 UTC (rev 58345)
+++ trunk/Master/tlpkg/installer/install-tl-gui.tcl	2021-03-14 12:03:08 UTC (rev 58346)
@@ -1302,10 +1302,10 @@
 }
 
 proc run_menu {} {
-  if [info exists ::env(dbgui)] {
-    #puts "\ndbgui: run_menu: advanced is now $::advanced"
-    #puts "dbgui: run_menu: alltrees is now $::alltrees"
-  }
+  #if [info exists ::env(dbgui)] {
+  #  puts "\ndbgui: run_menu: advanced is now $::advanced"
+  #  puts "dbgui: run_menu: alltrees is now $::alltrees"
+  #}
   wm withdraw .
   foreach c [winfo children .] {
     catch {destroy $c}
@@ -1321,6 +1321,9 @@
     }
   }
 
+  # name in titlebar; should be redefined after any language switch
+  wm title . [__ "TeX Live Installer"]
+
   # menu, for language selection and font scaling
   menu .mn
   . configure -menu .mn
@@ -1940,7 +1943,6 @@
 
 proc main_prog {} {
 
-  wm title . [__ "TeX Live Installer"]
   wm protocol . WM_DELETE_WINDOW whataboutclose
 
   # handle some command-line arguments.