From 08b9340082da60eba1edd9826e32417e1463a017 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 26 Dec 2008 20:54:53 +0000 Subject: use ->update instead of DoOneEvent git-svn-id: svn://tug.org/texlive/trunk@11733 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl | 23 ++++++++++------------ 1 file 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 () { $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"); -- cgit v1.2.3