summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-01-26 19:42:02 +0000
committerNorbert Preining <preining@logic.at>2009-01-26 19:42:02 +0000
commit1edd48fbfb748d38ed5f49d405683fbe7386da8a (patch)
treea409ef723d9bf0d240f18e1d088927a9a2e4f9d5
parent37de37d49473833bdfaaf9d9d4137f44f114ad8b (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-xMaster/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl2
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",