diff options
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
| -rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 6 |
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); |