diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2020-06-08 10:25:43 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2020-06-08 10:25:43 +0000 |
commit | d43d80f432c70fb2110bdcfb2cdd335858a5b2c7 (patch) | |
tree | 6cd9a06f45d5895dd8a0205d6c66c2a24dc5f834 | |
parent | d87925774809ffcd12983a47fb2f01e47288a456 (diff) |
More missing info at startup
git-svn-id: svn://tug.org/texlive/trunk@55481 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-x | Master/texmf-dist/scripts/tlshell/tlshell.tcl | 23 |
1 files changed, 14 insertions, 9 deletions
diff --git a/Master/texmf-dist/scripts/tlshell/tlshell.tcl b/Master/texmf-dist/scripts/tlshell/tlshell.tcl index 432b2346a34..0db1b8d86ac 100755 --- a/Master/texmf-dist/scripts/tlshell/tlshell.tcl +++ b/Master/texmf-dist/scripts/tlshell/tlshell.tcl @@ -2412,14 +2412,8 @@ proc populate_main {} { 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 @@ proc rebuild_interface {} { 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 @@ proc initialize {} { } } get_packages_info_local - collect_and_display_filtered + collect_filtered get_repos_from_tlmgr + display_all_data }; # initialize initialize |