diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2021-03-14 12:03:08 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2021-03-14 12:03:08 +0000 |
| commit | 0368a640c5ea2aeabc0f31b834e9e32390f4c221 (patch) | |
| tree | 975121a440dd95b1228f8f55d7be5299628f44e8 /Master | |
| parent | a0a775a6449e7a9bcdfd8daa8dec37ee9ff4c140 (diff) | |
Include titlebar in language switching
git-svn-id: svn://tug.org/texlive/trunk@58346 c570f23f-e606-0410-a88d-b1316a301751
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. |