diff options
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
| -rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 87540e76b03..9e249ce59f8 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -91,30 +91,30 @@ 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);}; + 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);}; + 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! -push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; -push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; -push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; -push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; -push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; -push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; -push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; -push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; -push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; -push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; -push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; -push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; -push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; -push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; -push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; -push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; +push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); }; +push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); }; +push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); }; +push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); }; +push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); }; +push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); }; +push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); }; +push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); }; +push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); }; +push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); }; +push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); }; +push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); }; +push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); }; +push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); }; +push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); }; +push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); }; sub update_statusbar { my $p = shift; @@ -216,7 +216,7 @@ my $srcyesno = ( $vars{'option_src'} ? $text{'yes'} : $text{'no'} ); my $docyesno = ( $vars{'option_doc'} ? $text{'yes'} : $text{'no'} ); sub run_menu { - calc_depends; + calc_depends(); $mainwindow = Tk::MainWindow->new; if (!win32()) { |