summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-07-04 14:36:06 +0000
committerNorbert Preining <preining@logic.at>2008-07-04 14:36:06 +0000
commitc99d968f86eceaed38b93baea6a2d4675a307efa (patch)
tree1d8ec1aac01a338158283d6da9f5439df534d07b
parentaeabfbefd68dbb8cfde8bdc2c512afc98accedf3 (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-xMaster/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl7
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)) {