From 1edd48fbfb748d38ed5f49d405683fbe7386da8a Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 26 Jan 2009 19:42:02 +0000 Subject: 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 --- Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl | 2 ++ 1 file changed, 2 insertions(+) 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", -- cgit v1.2.3