From 9fc19ef8e2dcd8bcf6a1d034b95c1de2b88e485c Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Thu, 17 Feb 2011 15:05:13 +0000 Subject: New tlperl part II git-svn-id: svn://tug.org/texlive/trunk@21424 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlperl/lib/Tk/JPEG.pm | 57 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 57 insertions(+) create mode 100644 Master/tlpkg/tlperl/lib/Tk/JPEG.pm (limited to 'Master/tlpkg/tlperl/lib/Tk/JPEG.pm') diff --git a/Master/tlpkg/tlperl/lib/Tk/JPEG.pm b/Master/tlpkg/tlperl/lib/Tk/JPEG.pm new file mode 100644 index 00000000000..6565c4157b3 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Tk/JPEG.pm @@ -0,0 +1,57 @@ +package Tk::JPEG; +require DynaLoader; + +use vars qw($VERSION); +$VERSION = '4.003'; # was: sprintf '4.%03d', q$Revision: #2$ =~ /\D(\d+)\s*$/; +use Tk 800.015; +require Tk::Image; +require Tk::Photo; +require DynaLoader; + +use vars qw($VERSION $XS_VERSION); + +@ISA = qw(DynaLoader); + +$XS_VERSION = $Tk::VERSION; +bootstrap Tk::JPEG; + +1; + +__END__ + +=head1 NAME + +Tk::JPEG - JPEG loader for Tk::Photo + +=head1 SYNOPSIS + + use Tk; + use Tk::JPEG; + + my $image = $widget->Photo('-format' => 'jpeg', -file => 'something.jpg'); + + +=head1 DESCRIPTION + +This is an extension for Tk which supplies +JPEG format loader for Photo image type. + +JPEG access is via release 5 of the The Independent JPEG Group's (IJG) +free JPEG software. + +=head1 HISTORY + +This extension works for Tk800.015 and later and is by default bundled +with Perl/Tk since Tk804. + +=head1 AUTHOR + +Nick Ing-Simmons Enick@ing-simmons.netE + +=head1 SEE ALSO + +L. + +=cut + + -- cgit v1.2.3