diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-03-13 15:22:27 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-03-13 15:22:27 +0000 |
commit | 53548f11ec33a789d6e2d42f0ae490f7596d20a2 (patch) | |
tree | 4700ba10e59e64f87d2420801b9096854c29f491 /Master/tlpkg/installer/install-tl-gui.tcl | |
parent | 8dd10773a579acc01769a7b348b6f453809deaa9 (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-x | Master/tlpkg/installer/install-tl-gui.tcl | 10 |
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 } |