diff options
author | Norbert Preining <preining@logic.at> | 2008-07-04 14:36:06 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-07-04 14:36:06 +0000 |
commit | c99d968f86eceaed38b93baea6a2d4675a307efa (patch) | |
tree | 1d8ec1aac01a338158283d6da9f5439df534d07b | |
parent | aeabfbefd68dbb8cfde8bdc2c512afc98accedf3 (diff) |
tlmgrgui: grab the pointer while loading the remote tlpdb, and make it a transient window, and add different strings for loading local and remote tlpdb
git-svn-id: svn://tug.org/texlive/trunk@9235 c570f23f-e606-0410-a88d-b1316a301751
-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)) { |