summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/installer/install-tl-gui.tcl
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2020-07-05 03:02:16 +0000
committerNorbert Preining <norbert@preining.info>2020-07-05 03:02:16 +0000
commitd7fedb6786f75a4709b3febbc539376f483001b3 (patch)
tree51661f5ede81a2998d5f07f0053d1fbc77fa5964 /systems/texlive/tlnet/tlpkg/installer/install-tl-gui.tcl
parentce9d7362aa8813c6cea1e0fe6974561f28a103a5 (diff)
CTAN sync 202007050302
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/installer/install-tl-gui.tcl')
-rwxr-xr-xsystems/texlive/tlnet/tlpkg/installer/install-tl-gui.tcl7
1 files changed, 5 insertions, 2 deletions
diff --git a/systems/texlive/tlnet/tlpkg/installer/install-tl-gui.tcl b/systems/texlive/tlnet/tlpkg/installer/install-tl-gui.tcl
index 5719f4e91d..e962feb7c6 100755
--- a/systems/texlive/tlnet/tlpkg/installer/install-tl-gui.tcl
+++ b/systems/texlive/tlnet/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" \