diff options
Diffstat (limited to 'Master/tlpkg/dev/tlmgrgui2.pl')
| -rw-r--r-- | Master/tlpkg/dev/tlmgrgui2.pl | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/Master/tlpkg/dev/tlmgrgui2.pl b/Master/tlpkg/dev/tlmgrgui2.pl index a8f5a300e9b..237325654c5 100644 --- a/Master/tlpkg/dev/tlmgrgui2.pl +++ b/Master/tlpkg/dev/tlmgrgui2.pl @@ -18,6 +18,7 @@ # from some other commands that have been run # TODO: remove the "all <-> matching" and activate it as soon as the # match string is not empty. +# TODO: should we allow the "with filter [] applied [] not applied" thing? $^W = 1; use strict; @@ -225,7 +226,10 @@ $menu_actions->add('command', -label => __("Re-create all formats"), -command => sub { $mw->Busy(-recurse => 1); info("Running fmtutil-sys --all, this may take some time ...\n"); - info(`fmtutil-sys --all 2>&1`); + for my $l (`fmtutil-sys --all 2>&1`) { + info($l); + $mw->update; + } $mw->Unbusy; }); $menu_actions->add('command', -label => __("Update font map database"), @@ -233,7 +237,10 @@ $menu_actions->add('command', -label => __("Update font map database"), -command => sub { $mw->Busy(-recurse => 1); info("Running updmap-sys, this may take some time ...\n"); - info(`updmap-sys 2>&1`); + for my $l (`updmap-sys 2>&1`) { + info($l); + $mw->update; + } $mw->Unbusy; }); @@ -1154,6 +1161,8 @@ sub select_file_assocs { ################ END FUNCTIONS if ($opts{"load"}) { + $location = $tlpdb_location; + update_loaded_location_string(); run_update_functions(); } |