diff options
author | Norbert Preining <preining@logic.at> | 2008-11-18 13:13:07 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-11-18 13:13:07 +0000 |
commit | 2523a20523776748a38cdee5bfa644b88671845b (patch) | |
tree | e941f1df2347a437e53700eaeefa00f31625d17e | |
parent | d4ebde0fa73a0d14546853e2c113dee89b9afc07 (diff) |
add a warn_hook and echo to GUI message window the tlwarn messages at install time
git-svn-id: svn://tug.org/texlive/trunk@11346 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 3 | ||||
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 5 |
2 files changed, 8 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 4edd1f0472b..11b7ae882a6 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1651,6 +1651,9 @@ sub tlwarn { $::opt_quiet = 0; logit (\*STDERR, -100, @_); $::opt_quiet = $savequiet; + for my $i (@::warn_hook) { + &{$i}($str); + } } diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 1cfd987f9ee..1f0f68a5e8e 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -108,6 +108,11 @@ push @::info_hook, update_status(join(" ",@_)); $mainwindow->update; }; +push @::warn_hook, + sub { + update_status(join(" ",@_)); + $mainwindow->update; + }; push @::install_packages_hook, \&update_progressbar; push @::install_packages_hook, sub { $mainwindow->update; $::sww->update; }; |