new image for installer in PNG format, and add PNG support stuff for instll perl

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

5 files changed, 46 insertions, 2 deletions

diff --git a/Master/tlpkg/TeXLive/install-menu-perltk.pl b/Master/tlpkg/TeXLive/install-menu-perltk.pl
index 3e8812747c3..d90ab752744 100644
--- a/Master/tlpkg/TeXLive/install-menu-perltk.pl
+++ b/Master/tlpkg/TeXLive/install-menu-perltk.pl
@@ -28,6 +28,7 @@ my $return = $MENU_INSTALL;
 
 require Tk;
 require Tk::Dialog;
+require Tk::PNG;
 
 my $mw;
 
@@ -86,7 +87,7 @@ sub run_menu {
 
   # image frame on the left
   my $fl = $mw->Frame;
-  my $img = $fl->Pixmap(-file => "install-tl.xpm");
+  my $img = $fl->Photo(-format => 'png', -file => "texlive2008.png");
   $fl->Label(-image => $img)->pack;
 
   # data frame on the right
diff --git a/Master/tlpkg/lib/Perl5_lib-TL_inst/Tk/PNG.pm b/Master/tlpkg/lib/Perl5_lib-TL_inst/Tk/PNG.pm
new file mode 100644
index 00000000000..1ecb4001d17
--- /dev/null
+++ b/Master/tlpkg/lib/Perl5_lib-TL_inst/Tk/PNG.pm
@@ -0,0 +1,43 @@
+package Tk::PNG;
+require DynaLoader;
+
+use vars qw($VERSION);
+$VERSION = sprintf '4.%03d', q$Revision: #3 $ =~ /\D(\d+)\s*$/;
+
+use Tk 800.005;
+require Tk::Image;
+require Tk::Photo;
+
+use base qw(DynaLoader);
+
+bootstrap Tk::PNG $Tk::VERSION;
+
+1;
+
+__END__
+
+=head1 NAME
+
+Tk::PNG - PNG loader for Tk::Photo
+
+=head1 SYNOPSIS
+
+  use Tk;
+  use Tk::PNG;
+
+  my $image = $widget->Photo('-format' => 'png', -file => 'something.png');
+
+
+=head1 DESCRIPTION
+
+This is an extension for Tk800.* which supplies
+PNG format loader for Photo image type.
+
+
+=head1 AUTHOR
+
+Nick Ing-Simmons E<lt>nick@ing-simmons.netE<gt>
+
+=cut
+
+
diff --git a/Master/tlpkg/lib/Perl5_lib-TL_inst/auto/Tk/PNG/PNG.bs b/Master/tlpkg/lib/Perl5_lib-TL_inst/auto/Tk/PNG/PNG.bs
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/lib/Perl5_lib-TL_inst/auto/Tk/PNG/PNG.bs
diff --git a/Master/tlpkg/lib/Perl5_lib-TL_inst/auto/Tk/PNG/PNG.dll b/Master/tlpkg/lib/Perl5_lib-TL_inst/auto/Tk/PNG/PNG.dll
new file mode 100755
index 00000000000..08bbbed4fcc
--- /dev/null
+++ b/Master/tlpkg/lib/Perl5_lib-TL_inst/auto/Tk/PNG/PNG.dll
diff --git a/Master/tlpkg/tlpsrc/00texlive.installer.tlpsrc b/Master/tlpkg/tlpsrc/00texlive.installer.tlpsrc
index bfc450bc7ef..1ade4bf0bdc 100644
--- a/Master/tlpkg/tlpsrc/00texlive.installer.tlpsrc
+++ b/Master/tlpkg/tlpsrc/00texlive.installer.tlpsrc
@@ -2,7 +2,7 @@ name 00texlive.installer
 category TLCore
 runpattern f install-tl.pl
 runpattern f install-tl.html
-runpattern f install-tl.xpm
+runpattern f texlive2008.png
 runpattern f config.guess
 runpattern d tlpkg/TeXLive
 binpattern f tlpkg/bin/lzmadec.${ARCH}