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