diff options
author | Norbert Preining <preining@logic.at> | 2008-06-04 12:38:27 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-06-04 12:38:27 +0000 |
commit | 3e6a21849aa9597ac5272e5c372e67e8ce348b09 (patch) | |
tree | 0e14bf5f83200b66fab5e0b3ac67ea6823b69259 /Master | |
parent | ba48e8e1649a97b5d3b691c7d5cf73a46db22918 (diff) |
tlmgrgui: pop up an info window while loading the remote tlpdb
git-svn-id: svn://tug.org/texlive/trunk@8550 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
5 files changed, 18 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/lang/de b/Master/texmf/scripts/texlive/tlmgrgui/lang/de index d08075be078..d49a166dd14 100644 --- a/Master/texmf/scripts/texlive/tlmgrgui/lang/de +++ b/Master/texmf/scripts/texlive/tlmgrgui/lang/de @@ -67,6 +67,7 @@ resetchanges: Änderungen zurücksetzten remarchinfo: Entfernen von Architekturen wird derzeit nicht unterstützt! pleaseuse: Please use the "Add/Remove Programs" from the Control Panel! completerem: TeX Live 2008 wurde vollständig entfernt +loadtlpdbwait: Loading TeX Live Database\nThis may take some time, please wait! # Local Variables: # coding: utf-8 diff --git a/Master/texmf/scripts/texlive/tlmgrgui/lang/en.sample b/Master/texmf/scripts/texlive/tlmgrgui/lang/en.sample index 5e27aa2b3ba..c718899ea36 100644 --- a/Master/texmf/scripts/texlive/tlmgrgui/lang/en.sample +++ b/Master/texmf/scripts/texlive/tlmgrgui/lang/en.sample @@ -72,8 +72,9 @@ resetchanges: Reset changes remarchinfo: Removals of archs currently not supported! pleaseuse: Please use the \"Add/Remove Programs\" from the Control Panel! completerem: TeX Live 2008 had been removed +loadtlpdbwait: Loading TeX Live Database\nThis may take some time, please wait! # Local Variables: # coding: utf-8 # End: -# vim:set termencoding=iso8859-15 encoding=utf-8 fileencoding=utf-8: # +# vim:set encoding=utf-8 fileencoding=utf-8: # diff --git a/Master/texmf/scripts/texlive/tlmgrgui/lang/fr b/Master/texmf/scripts/texlive/tlmgrgui/lang/fr index 19bb07c05d0..59e419611e5 100644 --- a/Master/texmf/scripts/texlive/tlmgrgui/lang/fr +++ b/Master/texmf/scripts/texlive/tlmgrgui/lang/fr @@ -72,6 +72,9 @@ resetchanges: Annuler les changements remarchinfo: Il est actuellement impossible de retirer des architectures ! pleaseuse: Veuillez utiliser \"Ajout/Suppression de programmes\" depuis le panneau de configuration ! completerem: Désintallation complète terminée. +loadtlpdbwait: Loading TeX Live Database\nThis may take some time, please wait! + + # Local Variables: # coding: utf-8 # End: diff --git a/Master/texmf/scripts/texlive/tlmgrgui/lang/pl b/Master/texmf/scripts/texlive/tlmgrgui/lang/pl index 5ab234467d2..ace26162a58 100644 --- a/Master/texmf/scripts/texlive/tlmgrgui/lang/pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/lang/pl @@ -68,5 +68,10 @@ resetchanges: Anuluj zmiany remarchinfo: Usuwanie binariów dla systemów operacyjnych aktualnie niemożliwe! pleaseuse: Proszę użyć "Dodaj/Usuń Programy" w Panelu Sterowania! completerem: Usuwanie zakończone +loadtlpdbwait: Loading TeX Live Database\nThis may take some time, please wait! + + # Local Variables: # coding: utf-8 +# End: +# vim:set encoding=utf-8 fileencoding=utf-8: # diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl index 45aefd2f400..ed04131e2e5 100755 --- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl @@ -111,6 +111,7 @@ $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!", }; @@ -325,7 +326,13 @@ sub init_install_media { if (defined($tlmediatlpdb) && ($tlmediatlpdb->root eq $newroot)) { # nothing to be done } else { + my $iboo = $mw->Toplevel(-title => "Loading TLPDB"); + $iboo->Label(-text => ___"loadtlpdbwait")->pack(); + for (my $i = 0; $i < 100; $i++) { + Tk::DoOneEvent(Tk::Event::DONT_WAIT); + } $tlmediasrc = TeXLive::TLMedia->new($newroot); + $iboo->destroy; if (!defined($tlmediasrc)) { # something went badly wrong, maybe the newroot is wrong? $mw->Dialog(-title => "warning", |