summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-tl-gui.tcl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2020-07-04 13:14:25 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2020-07-04 13:14:25 +0000
commitef8b8c9fa5ed2344cfd1e9d744ee6db897f4b377 (patch)
tree98530b5cc8888bc9cd36f420e564919e9d11a14a /Master/tlpkg/installer/install-tl-gui.tcl
parent4e0b73253f2163f73d6428b056ef118613ced66e (diff)
Fix for splash screen
git-svn-id: svn://tug.org/texlive/trunk@55748 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-tl-gui.tcl')
-rwxr-xr-xMaster/tlpkg/installer/install-tl-gui.tcl7
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" \