diff options
Diffstat (limited to 'Master/texmf-dist')
-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 |