From 0368a640c5ea2aeabc0f31b834e9e32390f4c221 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Sun, 14 Mar 2021 12:03:08 +0000 Subject: Include titlebar in language switching git-svn-id: svn://tug.org/texlive/trunk@58346 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/install-tl-gui.tcl | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'Master/tlpkg') 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. -- cgit v1.2.3