summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl39
1 files changed, 16 insertions, 23 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index bc1f5d30be9..5d6f101b58d 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -100,31 +100,24 @@ 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 @::end_install_hook, sub { update_statusbar("Installation finished");
- Tk::DoOneEvent(Tk::Event::DONT_WAIT()); Tk::DoOneEvent(Tk::Event::DONT_WAIT());};
+push @::start_install_hook,
+ sub {
+ update_statusbar("Starting installation");
+ $mainwindow->update;
+ };
+push @::start_postinst_hook,
+ sub {
+ update_statusbar("Starting post-installation Jobs");
+ $mainwindow->update;
+ };
+push @::end_install_hook,
+ sub {
+ update_statusbar("Installation finished");
+ $mainwindow->update;
+ };
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 { $mainwindow->update; };
sub update_statusbar {
my $p = shift;