install-menu-perltk.pl: absolute path for png file

git-svn-id: svn://tug.org/texlive/trunk@11667 c570f23f-e606-0410-a88d-b1316a301751

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);