diff options
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index fc7a35a5f8b..487b5d05b07 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -81,18 +81,21 @@ $::run_menu = \&run_menu_perltk; sub setup_hooks_perltk { + @::info_hook = (); push @::info_hook, sub { return unless defined $mainwindow; update_status(join(" ",@_)); $mainwindow->update; }; + @::warn_hook = (); push @::warn_hook, sub { return unless defined $mainwindow ; update_status(join(" ",@_)); $mainwindow->update; }; + @::install_packages_hook = (); push @::install_packages_hook, \&update_progressbar; push @::install_packages_hook, sub { @@ -281,10 +284,6 @@ sub run_menu_perltk { -text => $text{'wizard'}, -command => sub { $mainwindow->destroy; - @::warn_hook = (); - @::debug_hook = (); - @::info_hook = (); - @::install_packages_hook = (); require("installer/install-menu-wizard.pl"); setup_hooks_wizard(); $return = run_menu_wizard(); |