diff options
Diffstat (limited to 'Master')
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl | 23 |
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"); |