texlive[55481] Master/texmf-dist/scripts/tlshell/tlshell.tcl: More

[commits+siepo at tug.org]

Revision: 55481
          http://tug.org/svn/texlive?view=revision&revision=55481
Author:   siepo
Date:     2020-06-08 12:25:43 +0200 (Mon, 08 Jun 2020)
Log Message:
-----------
More missing info at startup

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl

Modified: trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl
===================================================================
--- trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2020-06-08 09:38:42 UTC (rev 55480)
+++ trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2020-06-08 10:25:43 UTC (rev 55481)
@@ -2412,14 +2412,8 @@
   raise .
 }
 
-# to be invoked at initialization and after a font scaling change
-proc rebuild_interface {} {
-  foreach c [winfo children .] {catch {destroy $c}}
-
-  # for busy/idle indicators
-  set ::busy [__ "Idle"]
-  populate_main
-  # and now redisplay all data
+proc display_all_data {} {
+  # (re)display all data
   if {$::tcl_platform(platform) eq "windows"} {
     .topfr.ladmin configure -text \
         [expr {$::multiuser ? [__ "Multi-user"] : [__ "Single-user"]}]
@@ -2432,6 +2426,16 @@
   show_repos
   display_packages_info
   display_updated_globals
+}
+
+# to be invoked at initialization and after a font scaling change
+proc rebuild_interface {} {
+  foreach c [winfo children .] {catch {destroy $c}}
+
+  # for busy/idle indicators
+  set ::busy [__ "Idle"]
+  populate_main
+  display_all_data
   if {$::tcl_platform(platform) eq "windows"} {wm deiconify .}
 }
 
@@ -2511,8 +2515,9 @@
     }
   }
   get_packages_info_local
-  collect_and_display_filtered
+  collect_filtered
   get_repos_from_tlmgr
+  display_all_data
 }; # initialize
 
 initialize