diff options
author | Norbert Preining <preining@logic.at> | 2009-02-05 13:08:15 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-02-05 13:08:15 +0000 |
commit | c5ce0d3b21f385962cc9f6b4753d202e516e61c6 (patch) | |
tree | d157a25fa27a56beefdc45ffa18215277c9c6b12 /Master/tlpkg/installer/install-menu-perltk.pl | |
parent | e7399656eac0ee225d3de9e0704fa310d05c387f (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.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(); |