summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xMaster/tlpkg/installer/install-tl-gui.tcl12
1 files changed, 7 insertions, 5 deletions
diff --git a/Master/tlpkg/installer/install-tl-gui.tcl b/Master/tlpkg/installer/install-tl-gui.tcl
index 285cfc83af9..455641f4db8 100755
--- a/Master/tlpkg/installer/install-tl-gui.tcl
+++ b/Master/tlpkg/installer/install-tl-gui.tcl
@@ -1302,10 +1302,10 @@ proc abort_menu {} {
}
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 @@ proc run_menu {} {
}
}
+ # 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 whataboutclose {} {
proc main_prog {} {
- wm title . [__ "TeX Live Installer"]
wm protocol . WM_DELETE_WINDOW whataboutclose
# handle some command-line arguments.