texlive[55748] Master/tlpkg/installer/install-tl-gui.tcl: Fix for

[commits+siepo at tug.org]

Revision: 55748
          http://tug.org/svn/texlive?view=revision&revision=55748
Author:   siepo
Date:     2020-07-04 15:14:25 +0200 (Sat, 04 Jul 2020)
Log Message:
-----------
Fix for splash screen

Modified Paths:
--------------
    trunk/Master/tlpkg/installer/install-tl-gui.tcl

Modified: trunk/Master/tlpkg/installer/install-tl-gui.tcl
===================================================================
--- trunk/Master/tlpkg/installer/install-tl-gui.tcl	2020-07-04 13:01:44 UTC (rev 55747)
+++ trunk/Master/tlpkg/installer/install-tl-gui.tcl	2020-07-04 13:14:25 UTC (rev 55748)
@@ -401,11 +401,12 @@
 } ; # 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 @@
   }
   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" \