From e2f4e8fddfbc0345b00c73e96453be41f6d18419 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 4 Feb 2009 14:37:26 +0000 Subject: make sure not to reference perltk stuff too early git-svn-id: svn://tug.org/texlive/trunk@12075 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/install-menu-perltk.pl | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'Master/tlpkg/installer/install-menu-perltk.pl') diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index dcca6100ca2..ffe2cfbf699 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -105,25 +105,34 @@ my $optdocstate; push @::info_hook, sub { + return unless defined $mainwindow; update_status(join(" ",@_)); $mainwindow->update; }; push @::warn_hook, sub { + return unless defined $mainwindow ; update_status(join(" ",@_)); $mainwindow->update; }; push @::install_packages_hook, \&update_progressbar; push @::install_packages_hook, - sub { $mainwindow->update; $::sww->update; }; + sub { + return unless defined $mainwindow; + return unless defined $::sww; + $mainwindow->update; + $::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