diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2020-07-04 13:14:25 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2020-07-04 13:14:25 +0000 |
| commit | ef8b8c9fa5ed2344cfd1e9d744ee6db897f4b377 (patch) | |
| tree | 98530b5cc8888bc9cd36f420e564919e9d11a14a /Master | |
| parent | 4e0b73253f2163f73d6428b056ef118613ced66e (diff) | |
Fix for splash screen
git-svn-id: svn://tug.org/texlive/trunk@55748 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
| -rwxr-xr-x | Master/tlpkg/installer/install-tl-gui.tcl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Master/tlpkg/installer/install-tl-gui.tcl b/Master/tlpkg/installer/install-tl-gui.tcl index 5719f4e91dc..e962feb7c61 100755 --- a/Master/tlpkg/installer/install-tl-gui.tcl +++ b/Master/tlpkg/installer/install-tl-gui.tcl @@ -401,11 +401,12 @@ proc select_mirror {} { } ; # select_mirror proc make_splash {} { + wm withdraw . + # we want this if select_mirror has run: foreach c [winfo children .splfb] { catch {destroy $c} } - update ppack [ttk::button .spl_a -text [__ "Abort"] -command maybe_abort] \ -side right -in .splfb @@ -2028,10 +2029,12 @@ proc main_prog {} { } unset i + pre_splash if {! [info exists ::mir_selected]} { - pre_splash select_mirror + # waits for ::mir_selected } + make_splash # start install-tl-[tcl] via a pipe. set cmd [list "|${::perlbin}" "${::instroot}/install-tl" \ |