diff options
Diffstat (limited to 'Master')
| -rwxr-xr-x | Master/tlpkg/installer/install-tl-gui.tcl | 12 |
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. |