texlive[50369] Master: Repository on splash screen

[commits+siepo at tug.org]

Revision: 50369
          http://tug.org/svn/texlive?view=revision&revision=50369
Author:   siepo
Date:     2019-03-13 16:22:27 +0100 (Wed, 13 Mar 2019)
Log Message:
-----------
Repository on splash screen

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

Modified: trunk/Master/install-tl
===================================================================
--- trunk/Master/install-tl	2019-03-13 15:09:39 UTC (rev 50368)
+++ trunk/Master/install-tl	2019-03-13 15:22:27 UTC (rev 50369)
@@ -788,6 +788,7 @@
       $media = 'NET';
     }
   }
+  if ($from_ext_gui) {print "location: $location\n";}
   return load_tlpdb();
 } # only_load_remote
 

Modified: trunk/Master/tlpkg/installer/install-menu-extl.pl
===================================================================
--- trunk/Master/tlpkg/installer/install-menu-extl.pl	2019-03-13 15:09:39 UTC (rev 50368)
+++ trunk/Master/tlpkg/installer/install-menu-extl.pl	2019-03-13 15:22:27 UTC (rev 50369)
@@ -3,9 +3,9 @@
 
 # tell the frontend about all configurable options and terminate
 # this output with an agreed-upon termination string.  the frontend
-# will read the package database itself. From this, it can deduce
-# collections, schemes and platforms, but not the names of
-# platforms.
+# will get the required package database information from the back
+# end.  From this, it can deduce collections, schemes and platforms,
+# but not the names of platforms.
 
 # needed info:
 
@@ -41,7 +41,6 @@
 
 our $opt_in_place;
 our $tlpdb;
-our @media_available;
 our $media;
 our $previoustlpdb;
 our @collections_std;
@@ -64,7 +63,6 @@
 
 # %vars hash should eventually include each binary, collection and scheme
 # as individual schalars.
-
 do_remote_init();
 # the above sub adds all platforms and collections to %vars
 # but maybe not schemes so we add these now:

Modified: trunk/Master/tlpkg/installer/install-tl-gui.tcl
===================================================================
--- trunk/Master/tlpkg/installer/install-tl-gui.tcl	2019-03-13 15:09:39 UTC (rev 50368)
+++ trunk/Master/tlpkg/installer/install-tl-gui.tcl	2019-03-13 15:22:27 UTC (rev 50369)
@@ -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 @@
 
   # 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 @@
       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
     }