From a41f57b7370126677d89fd476d987faa8b765f9b Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Sun, 21 Dec 2008 13:17:51 +0000 Subject: install-menu-perltk.pl: absolute path for png file git-svn-id: svn://tug.org/texlive/trunk@11667 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/install-menu-perltk.pl | 6 +++--- 1 file 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); -- cgit v1.2.3