tlmgrgui: splash screen for staring and loading, hope it works on win32

git-svn-id: svn://tug.org/texlive/trunk@8820 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 43 insertions, 1 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl
index 342ee08097b..6e8d3467084 100755
--- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl
@@ -35,6 +35,7 @@ use Tk::NoteBook;
 use Tk::BrowseEntry;
 use Tk::ROText;
 use Tk::Balloon;
+use Tk::Splashscreen;
 
 
 
@@ -198,8 +199,46 @@ our @update_function_list;
 
 our $debugmode = 0;
 
+our $mw = MainWindow->new(-title => "tlmgr 2008");
+$mw->withdraw;
+my $splash = $mw->Splashscreen;
+$splash->Label(-text => ___"loadtlpdbwait")->pack;
+$splash->Splash(4000);
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
+$splash->update();
 our $localtlpdb = TeXLive::TLPDB->new ("root" => "$Master");
 die("cannot find tlpdb!") unless (defined($localtlpdb));
+
 our @alllocalpackages = setup_list(0,$localtlpdb->list_packages);
 our @updatepackages;
 setup_programs("$Master/tlpkg/installer", $localtlpdb->option_platform);
@@ -218,7 +257,6 @@ our $tlmediasrc;
 our $tlmediatlpdb;
 our @allpackages;
 
-our $mw = MainWindow->new(-title => "tlmgr 2008");
 our $balloon = $mw->Balloon();
 
 push @update_function_list, \&init_install_media;
@@ -318,10 +356,14 @@ if ($opt_load) {
   run_update_functions();
 }
 
+
 if (defined($opt_screen)) {
   $back->raise("$opt_screen"); 
 } 
 
+$splash->Destroy;
+$mw->deiconify;
+
 Tk::MainLoop();