diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/JPEG.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/JPEG.pm | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/JPEG.pm b/Master/tlpkg/tlperl/lib/Tk/JPEG.pm new file mode 100644 index 00000000000..9e0ef771f77 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Tk/JPEG.pm @@ -0,0 +1,50 @@ +package Tk::JPEG; +require DynaLoader; + +use vars qw($VERSION); +$VERSION = 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 Tk800.015 and later which supplies +JPEG format loader for Photo image type. + +This version also works with Tk804 series. + +JPEG access is via release 5 of the The Independent JPEG Group's (IJG) +free JPEG software. + +=head1 AUTHOR + +Nick Ing-Simmons E<lt>nick@ing-simmons.netE<gt> + +=cut + + |