use ->update instead of DoOneEvent

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

1 files changed, 10 insertions, 13 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl
index 46d6b0e151a..d4ea4d008da 100755
--- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl
@@ -112,6 +112,7 @@ $TRANS{'en'} = {
 sub update_status_window {
   update_status(join(" ", @_));
   $mw->update;
+  $::sww->update;
 }
 
 sub init_hooks {
@@ -252,7 +253,7 @@ our $about = $top->Button(-text => ___"about",
   -command => sub {
     my $sw = $mw->DialogBox(-title => ___"about", 
                             -buttons => [ ___"ok" ]);
-    $sw->add("Label", -text => "TeX Live Manager GUI
+    $sw->add("Label", -text => "TeX Live Manager
 $tlmgrrev
 Copyright 2008 Tomasz Luczak, Norbert Preining
 License under the GNU General Public License version 2 or higher
@@ -405,33 +406,29 @@ sub run_program_show_output {
   my $ok = $td->Button(-text => ___"ok", -padx => "3m", -pady => "3m",
                        -command => sub { $td->destroy; });
   # start the installation, read the output
-  for (my $i = 0; $i < 100; $i++) {
-    Tk::DoOneEvent(Tk::Event::DONT_WAIT);
-  }
+  $mw->update;
+  $::sww->update;
   #
   # ok, that stupid perl for windows does not have fork, why? no idea
   # we have to deal with that
   if ($^O=~/^MSWin(32|64)$/i) {
     $tf->insert("end", ___("starting") . " @_\n\n" . ___"maytaketime");
-    for (my $i = 0; $i < 100; $i++) {
-      Tk::DoOneEvent(Tk::Event::DONT_WAIT);
-    }
+    $mw->update;
+    $::sww->update;
     my $ret = `@_`;
     $tf->insert("end", "$ret\n\n" . ___("completed") . "\n");
     $tf->see("end");
     $ok->pack;
-    for (my $i = 0; $i < 100; $i++) {
-      Tk::DoOneEvent(Tk::Event::DONT_WAIT);
-    }
+    $mw->update;
+    $::sww->update;
   } else {
     my $pid = open(KID_TO_READ, "-|");
     if ($pid) {   # parent
       while (<KID_TO_READ>) {
         $tf->insert("end",$_);
         $tf->see("end");
-        for (my $i = 0; $i < 100; $i++) {
-          Tk::DoOneEvent(Tk::Event::DONT_WAIT);
-        }
+        $mw->update;
+        $::sww->update;
       }
       close(KID_TO_READ) || warn "kid exited $?";
       $tf->insert("end","\n\nCOMPLETED\n");