home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _49742f81b512acbaeb184322c3521ebd < prev    next >
Encoding:
Text File  |  2004-06-01  |  875 b   |  51 lines
  1. package Tk::JPEG;
  2. require DynaLoader;
  3.  
  4. use vars qw($VERSION);
  5. $VERSION = sprintf '4.%03d', q$Revision: #2$ =~ /\D(\d+)\s*$/;
  6. use Tk 800.015;
  7. require Tk::Image;
  8. require Tk::Photo;
  9. require DynaLoader;
  10.  
  11. use vars qw($VERSION $XS_VERSION);
  12.  
  13. @ISA = qw(DynaLoader);
  14.  
  15. $XS_VERSION = $Tk::VERSION;
  16. bootstrap Tk::JPEG;
  17.  
  18. 1;
  19.  
  20. __END__
  21.  
  22. =head1 NAME
  23.  
  24. Tk::JPEG - JPEG loader for Tk::Photo
  25.  
  26. =head1 SYNOPSIS
  27.  
  28.   use Tk;
  29.   use Tk::JPEG;
  30.  
  31.   my $image = $widget->Photo('-format' => 'jpeg', -file => 'something.jpg');
  32.  
  33.  
  34. =head1 DESCRIPTION
  35.  
  36. This is an extension for Tk800.015 and later which supplies
  37. JPEG format loader for Photo image type.
  38.  
  39. This version also works with Tk804 series.
  40.  
  41. JPEG access is via release 5 of the The Independent JPEG Group's (IJG)
  42. free JPEG software.
  43.  
  44. =head1 AUTHOR
  45.  
  46. Nick Ing-Simmons E<lt>nick@ing-simmons.netE<gt>
  47.  
  48. =cut
  49.  
  50.  
  51.