summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index 1f0f68a5e8e..4f0c5cc3020 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -114,7 +114,7 @@ push @::warn_hook,
$mainwindow->update;
};
push @::install_packages_hook, \&update_progressbar;
-push @::install_packages_hook,
+push @::install_packages_hook,
sub { $mainwindow->update; $::sww->update; };
sub update_status {
@@ -237,7 +237,7 @@ sub run_menu {
# image frame on the left
my $fl = $mw->Frame(-background => "#0078b8");
- my $img = $fl->Photo(-format => 'png', -file => "tlpkg/installer/texlive2008.png");
+ my $img = $fl->Photo(-format => 'png', -file => "$::installerdir/tlpkg/installer/texlive2008.png");
$fl->Label(-image => $img, -background => "#0078b8")->pack(-expand => 1, -fill => "y");
$fl->Label(-text => "v$::installerrevision/$::menurevision", -background => "#0078b8")->pack;
@@ -403,7 +403,7 @@ sub run_menu {
return($return);
}
-sub installation_window {
+sub installation_window {
# create a progress bar window
$::sww = $mainwindow->Toplevel(-title => "installation process",
-width => 400);