summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-tl-gui.tcl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2019-03-13 15:22:27 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2019-03-13 15:22:27 +0000
commit53548f11ec33a789d6e2d42f0ae490f7596d20a2 (patch)
tree4700ba10e59e64f87d2420801b9096854c29f491 /Master/tlpkg/installer/install-tl-gui.tcl
parent8dd10773a579acc01769a7b348b6f453809deaa9 (diff)
Repository on splash screen
git-svn-id: svn://tug.org/texlive/trunk@50369 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-tl-gui.tcl')
-rwxr-xr-xMaster/tlpkg/installer/install-tl-gui.tcl10
1 files changed, 9 insertions, 1 deletions
diff --git a/Master/tlpkg/installer/install-tl-gui.tcl b/Master/tlpkg/installer/install-tl-gui.tcl
index 39814a6de6e..76e9333a783 100755
--- a/Master/tlpkg/installer/install-tl-gui.tcl
+++ b/Master/tlpkg/installer/install-tl-gui.tcl
@@ -1,6 +1,6 @@
#!/usr/bin/env wish
-# Copyright 2018 Siep Kroonenberg
+# Copyright 2018, 2019 Siep Kroonenberg
# This file is licensed under the GNU General Public License version 2
# or any later version.
@@ -1695,6 +1695,7 @@ proc main_prog {} {
# possible input from perl until the menu starts:
# - question about prior canceled installation
+ # - location (=repository)
# - menu data, help, version, print-platform
set ::did_gui 0
set answer ""
@@ -1732,6 +1733,13 @@ proc main_prog {} {
set ::out_log {}
set answer "startinst"
break
+ } elseif [string match "location: ?*" $l] {
+ if [winfo exists .loading] {
+ wm iconify .
+ .loading configure -text [__ "Loading from %s" [string range $l 10 end]]
+ wm deiconify .
+ update
+ }
} else {
lappend ::out_log $l
}