summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-16 06:53:04 +0000
committerNorbert Preining <preining@logic.at>2008-01-16 06:53:04 +0000
commit1dd7b55e44a373ac049f4c4ef7592a0a1bed2e49 (patch)
treea980056cf34a8199027b5b534b4fa4c62833cb04 /Master/tlpkg
parente357a2b619f7fdecf067280f32433ebd8b20cc28 (diff)
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
Diffstat (limited to 'Master/tlpkg')
-rw-r--r--Master/tlpkg/TeXLive/install-menu-perltk.pl3
-rw-r--r--Master/tlpkg/lib/Perl5_lib-TL_inst/Tk/PNG.pm43
-rw-r--r--Master/tlpkg/lib/Perl5_lib-TL_inst/auto/Tk/PNG/PNG.bs0
-rwxr-xr-xMaster/tlpkg/lib/Perl5_lib-TL_inst/auto/Tk/PNG/PNG.dllbin0 -> 168960 bytes
-rw-r--r--Master/tlpkg/tlpsrc/00texlive.installer.tlpsrc2
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
Binary files differ
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}