summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2021-03-14 12:03:08 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2021-03-14 12:03:08 +0000
commit0368a640c5ea2aeabc0f31b834e9e32390f4c221 (patch)
tree975121a440dd95b1228f8f55d7be5299628f44e8
parenta0a775a6449e7a9bcdfd8daa8dec37ee9ff4c140 (diff)
Include titlebar in language switching
git-svn-id: svn://tug.org/texlive/trunk@58346 c570f23f-e606-0410-a88d-b1316a301751
-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.