summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-12-21 13:17:51 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-12-21 13:17:51 +0000
commita41f57b7370126677d89fd476d987faa8b765f9b (patch)
tree4b5246227141b77b6b4dbfa541311c96b56296e5 /Master
parent14dd0f50f483f8f222e44512f34049e85dc13062 (diff)
install-menu-perltk.pl: absolute path for png file
git-svn-id: svn://tug.org/texlive/trunk@11667 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-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);