summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-12-26 20:54:53 +0000
committerNorbert Preining <preining@logic.at>2008-12-26 20:54:53 +0000
commit08b9340082da60eba1edd9826e32417e1463a017 (patch)
treed62a946fbdc929b643e05fb8ad0213529e7e18b9 /Master
parent0f1a7a4812404bea9d809a89221517caaed05c69 (diff)
use ->update instead of DoOneEvent
git-svn-id: svn://tug.org/texlive/trunk@11733 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl23
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");