diff options
author | Norbert Preining <preining@logic.at> | 2010-11-14 06:44:42 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2010-11-14 06:44:42 +0000 |
commit | 5fe3afab441dfa9504f0dd4406df48daa7e2afcc (patch) | |
tree | 68c92f8219b35914569e4dcc93d9d5f283a9860a /Master/texmf/scripts | |
parent | d21b56957db0348e97f97137b8d1776457321ee9 (diff) |
tlmgr gui:
give another warning window if critical updates have been installed
before terminating the program
git-svn-id: svn://tug.org/texlive/trunk@20435 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/scripts')
-rw-r--r-- | Master/texmf/scripts/texlive/tlmgrgui.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui.pl index f51be7f70cc..14ae0f2d80b 100644 --- a/Master/texmf/scripts/texlive/tlmgrgui.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui.pl @@ -1575,6 +1575,10 @@ sub update_all_packages { # is run immediately # make sure we exit in finish(0) $::gui_mode = 0; + # warn that program will now be terminated + $mw->Dialog(-title => __("Warning"), + -text => __("Critical updates have been installed.\nProgram will terminate now.\nPlease restart if necessary."), + -buttons => [ __("Ok") ])->Show; # also delete the main window before we kill the process to # make sure that Tk is happy (segfault on cmd line, email Taco) $mw->destroy; @@ -1602,6 +1606,10 @@ sub update_selected_packages { # is run immediately # make sure we exit in finish(0) $::gui_mode = 0; + # warn that program will now be terminated + $mw->Dialog(-title => __("Warning"), + -text => __("Critical updates have been installed.\nProgram will terminate now.\nPlease restart if necessary."), + -buttons => [ __("Ok") ])->Show; # also delete the main window before we kill the process to # make sure that Tk is happy (segfault on cmd line, email Taco) $mw->destroy; |