diff options
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index aea9f49b102..04eb4ef8a69 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -1,5 +1,4 @@ #!/usr/bin/env perl -# # $Id$ # # Copyright 2008 Norbert Preining, Reinhard Kotucha @@ -81,13 +80,12 @@ my $optfmtstate; my $optsrcstate; my $optdocstate; -push @::start_install_hook, sub { update_statusbar("Starting Installation"); - Tk::DoOneEvent(Tk::Event::DONT_WAIT); Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; -push @::start_postinst_hook, sub { update_statusbar("Starting Post Installation Jobs"); - Tk::DoOneEvent(Tk::Event::DONT_WAIT); Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; - +push @::start_install_hook, sub { update_statusbar("Starting installation"); + Tk::DoOneEvent(Tk::Event::DONT_WAIT); Tk::DoOneEvent(Tk::Event::DONT_WAIT);}; +push @::start_postinst_hook, sub { update_statusbar("Starting post-installation Jobs"); + Tk::DoOneEvent(Tk::Event::DONT_WAIT); Tk::DoOneEvent(Tk::Event::DONT_WAIT);}; push @::end_install_hook, sub { update_statusbar("Installation finished"); - Tk::DoOneEvent(Tk::Event::DONT_WAIT); Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; + Tk::DoOneEvent(Tk::Event::DONT_WAIT); Tk::DoOneEvent(Tk::Event::DONT_WAIT);}; push @::install_packages_hook, \&update_statusbar; # no idea how many of those are necessary, 1 is definitely not enough! @@ -574,7 +572,7 @@ sub menu_select_symlink { sub return_callback { if ($osym) { my $home = getenv('HOME'); - $home = getenv('USERPROFILE') if (win32); + $home = getenv('USERPROFILE') if (win32()); $home ||= '~'; $lbin =~ s/^~/$home/; $linfo =~ s/^~/$home/; @@ -750,7 +748,7 @@ sub callback_select_systems() { sub callback_edit_directories { my ($key,$val) = @_; my $home = getenv('HOME'); - $home = getenv('USERPROFILE') if (win32); + $home = getenv('USERPROFILE') if (win32()); $home ||= '~'; $vars{$key} = $val; $vars{'TEXDIR'} =~ s/^~/$home/; |