From a9ab728d2a8b514da67b964a845f2e5bb7308f60 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Sat, 27 Feb 2021 14:17:34 +0000 Subject: Translations loaded in tlmgr and install-tl git-svn-id: svn://tug.org/texlive/trunk@57970 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/tracked-install.pl | 139 ------------------------------ 1 file changed, 139 deletions(-) delete mode 100644 Master/tlpkg/installer/tracked-install.pl (limited to 'Master/tlpkg/installer/tracked-install.pl') diff --git a/Master/tlpkg/installer/tracked-install.pl b/Master/tlpkg/installer/tracked-install.pl deleted file mode 100644 index f16e15280bb..00000000000 --- a/Master/tlpkg/installer/tracked-install.pl +++ /dev/null @@ -1,139 +0,0 @@ -#!/usr/bin/env perl -# $Id$ -# -# Copyright 2008-2017 Norbert Preining -# Copyright 2008 Reinhard Kotucha -# This file is licensed under the GNU General Public License version 2 -# or any later version. - -use strict; -$^W = 1; - -my $svnrev = '$Revision: 41176 $'; -$svnrev =~ m/: ([0-9]+) /; -$::menurevision = $1; - -require Tk; -require Tk::ROText; -require Tk::ProgressBar; - -use utf8; -no utf8; - -sub installer_tracker { - my $ret; - # create a progress bar window - $::sww = Tk::MainWindow->new; - $::sww->Label(-text => __("Installation process"))->pack; - #warn "Debug!! Creating text window"; - $::progressw = $::sww->Scrolled( - "ROText", -wrap => "word", -scrollbars => "e", -height => 18); - #warn "Debug!! Created text window"; - $::progressw->pack(-expand => 1, -fill => "both"); - #warn "Debug!! Placed text window"; - my $percent_done = 0; - $::progress = $::sww->ProgressBar(-variable => \$percent_done, - -width => 20, -length => 400, -from => 0, -to => 100, -blocks => 10, - -colors => [ 0, '#0078b8' ]); - $::progress->pack(-fill => "x"); - #my $f = $::sww->Frame; - my $b = $::sww->Button( - -text => __("Cancel"), - -command => sub { - do_cleanup(); $::sww->destroy; - # POSIX::exit prevents Tk error message 'Tk::Error: ("after" script)' - POSIX::exit(1); - })->pack(-pady => "2m"); - $b->focus(); - # $f->pack; - setup_hooks_perltk(); - - $ret = do_installation(); - - if (@::WARNLINES) { - foreach my $t (@::WARNLINES) { - tlwarn ("$t\n"); - } - } - if ($::env_warns) { - tlwarn($::env_warns); - } - $::progressw->tagConfigure('centered', -justify => 'center'); - # basic welcome message - foreach my $t (@::welcome_arr) { - info("$t\n"); - } - $::progressw->insert("end", "\n"); - - do_cleanup(); - - # additional info - if ($::LOGFILENAME) { - $::progressw->insert ("end", "Logfile: $::LOGFILENAME"); - } else { - # do_cleanup sets $::LOGFILENAME to "" - #if no logfile could be written - $::progressw->insert ("end", - "Cannot create logfile $::vars{'TEXDIR'}/install-tl.log: $!"); - } - if (@::WARNLINES or $::env_vars or !$::LOGFILENAME) { - $::progressw->insert("end", "\n"); - $::progressw->insert("end", __("Scroll back to inspect warnings")); - } - $::progressw->insert("end", "\n"); - my $linechar = $::progressw->index("end"); - $::progressw->see("end"); - $::progressw->tagAdd("centered", $linechar, "end"); - $::progressw->tagConfigure("centered", -justify => "center"); - $b->configure( - -text => __("Finish"), - -command => sub { - $::sww->destroy; return $ret; - }); - - Tk::MainLoop(); - return $ret; -} # installer_tracker - -#sub tracked_installation { -# # undo binding, since this should run only once -# my $b = shift; -# $b->bind('' => ''); -# $ret = do_installation(); -# $::sww->destroy; -#} - -sub setup_hooks_perltk { - @::info_hook = (); - push @::info_hook, - sub { - update_status(join(" ",@_)); - $::sww->update; - }; - push @::warn_hook, - sub { - return unless defined $::sww ; - update_status(join(" ",@_)); - }; - @::install_packages_hook = (); - push @::install_packages_hook, \&update_progressbar; - push @::install_packages_hook, - sub { - return unless defined $::sww; - $::sww->update; - }; -} - -sub update_status { - my ($p) = @_; - return unless defined $::progressw; - $::progressw->insert("end", "$p"); - $::progressw->see("end"); -} -sub update_progressbar { - my ($n,$total) = @_; - return unless defined $::progress; - if (defined($n) && defined($total)) { - $::progress->value(int($n*100/$total)); - } -} -- cgit v1.2.3