summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-02-04 14:37:26 +0000
committerNorbert Preining <preining@logic.at>2009-02-04 14:37:26 +0000
commite2f4e8fddfbc0345b00c73e96453be41f6d18419 (patch)
tree64d3e5de6fd8a2bfddfc7d383ecfd8fd78194ca3 /Master/tlpkg/installer/install-menu-perltk.pl
parent114218009875218a2a5106054f0ff1a5093a3ef0 (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/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl11
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));
}