summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-02-05 13:08:15 +0000
committerNorbert Preining <preining@logic.at>2009-02-05 13:08:15 +0000
commitc5ce0d3b21f385962cc9f6b4753d202e516e61c6 (patch)
treed157a25fa27a56beefdc45ffa18215277c9c6b12 /Master/tlpkg/installer/install-menu-perltk.pl
parente7399656eac0ee225d3de9e0704fa310d05c387f (diff)
more fixes for switching between installers, and GUI W32 fixes
git-svn-id: svn://tug.org/texlive/trunk@12094 c570f23f-e606-0410-a88d-b1316a301751
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();