diff options
Diffstat (limited to 'Master/texmf')
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl index b0d7e1f5b48..dd6dcb0da58 100755 --- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl @@ -492,6 +492,7 @@ sub update_selected_packages { } push @args, @_; execute_action_gui(@args); + reinit_local_tlpdb(); if (win32() && $updater_needed) { my $t = ___"runupdater"; $t =~ s/TEXROOT/$Master/; @@ -507,7 +508,6 @@ sub update_selected_packages { # -text => $t, # -buttons => [ ___"ok" ])->Show; } - reinit_local_tlpdb(); # TODO TODO TODO # we should give a warning window when something didn't work out!!! } @@ -531,6 +531,7 @@ sub remove_selected_packages { } sub reinit_local_tlpdb { + $mw->Busy(-recurse => 1); $localtlpdb = TeXLive::TLPDB->new ("root" => "$Master"); die("cannot find tlpdb!") unless (defined($localtlpdb)); @alllocalpackages = setup_list(0,$localtlpdb->list_packages); @@ -538,6 +539,7 @@ sub reinit_local_tlpdb { @allpackages = setup_list(1,$tlmediatlpdb->list_packages); } create_update_list(); + $mw->Unbusy; } sub create_update_list { @@ -693,8 +695,10 @@ sub execute_action_gui { # -command => sub { $td->destroy; }); # my $lab = $td->Label(-text => ___("starting") . " @_\n"); # $lab->pack; + $mw->Busy(-recurse => 1); execute_action(@_); info(___("completed") . "\n"); + $mw->Unbusy; # my $labb = $td->Label(-text => ___"finished"); # $labb->pack; # $ok->pack; |