diff options
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl index 4fa24a7d21d..1c83a6128f0 100755 --- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl @@ -112,7 +112,8 @@ $TRANS{'en'} = { remarchinfo => "Removals of archs currently not supported!", pleaseuse => "Please use the \"Add/Remove Programs\" from the Control Panel!", completerem => "Complete removal completed", - loadtlpdbwait => "Loading TeX Live Database\nThis may take some time, please wait!", + loadtlpdbwait => "Loading local TeX Live Database\nThis may take some time, please wait!", + loadremotetlpdbwait => "Loading remote TeX Live Database\nThis may take some time, please wait!", runupdater => "Some package cannot be updated using the GUI!\nPlease run TEXROOT/tlpkg/installer/updater.bat once!\nOtherwise the updates will not be complete!\nNOTE: You have to QUIT this program first!", }; @@ -377,10 +378,12 @@ sub init_install_media { # nothing to be done } else { my $iboo = $mw->Toplevel(-title => "Loading TLPDB"); - $iboo->Label(-text => ___"loadtlpdbwait")->pack(); + $iboo->transient($mw); + $iboo->Label(-text => ___"loadremotetlpdbwait")->pack(); for (my $i = 0; $i < 100; $i++) { Tk::DoOneEvent(Tk::Event::DONT_WAIT); } + $iboo->grab(); $tlmediasrc = TeXLive::TLMedia->new($newroot); $iboo->destroy; if (!defined($tlmediasrc)) { |