summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl40
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()) {