diff options
Diffstat (limited to 'Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl | 57 |
1 files changed, 3 insertions, 54 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl index c3990acd274..a9d9b95443a 100755 --- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl @@ -2,7 +2,8 @@ # # $Id$ # -# Copyright 2008 Tomasz Luczak, Norbert Preining +# Copyright 2008 Tomasz Luczak +# Copyright 2008, 2009 Norbert Preining # # GUI for tlmgr # @@ -397,58 +398,6 @@ sub set_text_win { $w->see("0.0"); } -sub run_program_show_output { - my $td = $mw->Toplevel(-title => ___"tlmgr process"); - $td->transient($mw); - $td->grab(); - my $tf = $td->Scrolled("ROText", -width => 80, - -height => 10, - -wrap => "none", - -scrollbars => "ose" - )->pack(-expand => 1, -fill => "both"); - my $ok = $td->Button(-text => ___"ok", -padx => "3m", -pady => "3m", - -command => sub { $td->destroy; }); - # start the installation, read the output - $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"); - $mw->update; - $::sww->update; - my $ret = `@_`; - $tf->insert("end", "$ret\n\n" . ___("completed") . "\n"); - $tf->see("end"); - $ok->pack; - $mw->update; - $::sww->update; - } else { - my $pid = open(KID_TO_READ, "-|"); - if ($pid) { # parent - while (<KID_TO_READ>) { - $tf->insert("end",$_); - $tf->see("end"); - $mw->update; - $::sww->update; - } - close(KID_TO_READ) || warn "kid exited $?"; - $tf->insert("end","\n\nCOMPLETED\n"); - $tf->see("end"); - $ok->pack; - } else { #kid - # do not buffer lines ... - $| = 1; - open STDERR, '>&STDOUT'; - print ___("starting") . " @_\n"; - exec(@_) - || die "can't exec program: $!"; - # NOTREACHED - } - } -} - sub install_selected_packages { if (@_) { my @args = qw/install/; @@ -539,7 +488,7 @@ sub create_update_list { $localtlpdb, @TeXLive::TLConfig::CriticalPackagesList); if (defined($tlmediatlpdb)) { foreach my $lp ($localtlpdb->list_packages) { - next if ($lp =~ m/00texlive-installation.config/); + next if ($lp =~ m/00texlive.installation/); my $lrev = $localtlpdb->get_package($lp)->revision; my $up = $tlmediatlpdb->get_package($lp); my $urev; |