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.pl7
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();