tlmgr gui: mark application busy/unbusy while doing stuff

git-svn-id: svn://tug.org/texlive/trunk@11984 c570f23f-e606-0410-a88d-b1316a301751

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;