diff options
author | Norbert Preining <preining@logic.at> | 2009-02-04 14:37:26 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-02-04 14:37:26 +0000 |
commit | e2f4e8fddfbc0345b00c73e96453be41f6d18419 (patch) | |
tree | 64d3e5de6fd8a2bfddfc7d383ecfd8fd78194ca3 /Master | |
parent | 114218009875218a2a5106054f0ff1a5093a3ef0 (diff) |
make sure not to reference perltk stuff too early
git-svn-id: svn://tug.org/texlive/trunk@12075 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 11 |
1 files changed, 10 insertions, 1 deletions
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)); } |