diff options
| author | Norbert Preining <preining@logic.at> | 2009-01-26 19:42:02 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-01-26 19:42:02 +0000 |
| commit | 1edd48fbfb748d38ed5f49d405683fbe7386da8a (patch) | |
| tree | a409ef723d9bf0d240f18e1d088927a9a2e4f9d5 | |
| parent | 37de37d49473833bdfaaf9d9d4137f44f114ad8b (diff) | |
busy also for loading the remote tlpdb, where it is most useful!
git-svn-id: svn://tug.org/texlive/trunk@11985 c570f23f-e606-0410-a88d-b1316a301751
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl index dd6dcb0da58..b7da39b5175 100755 --- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl @@ -367,9 +367,11 @@ sub init_install_media { if (defined($tlmediatlpdb) && ($tlmediatlpdb->root eq $newroot)) { # nothing to be done } else { + $mw->Busy(-recurse => 1); info(___("loadremotetlpdbwait") . "\n"); $tlmediasrc = TeXLive::TLMedia->new($newroot); info(___("completed") . "\n"); + $mw->Unbusy; if (!defined($tlmediasrc)) { # something went badly wrong, maybe the newroot is wrong? $mw->Dialog(-title => "warning", |