home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _b44a417c933af4c7310a33c1dcd81484 < prev    next >
Encoding:
Text File  |  2004-06-01  |  647 b   |  44 lines
  1. package Tk::PNG;
  2. require DynaLoader;
  3.  
  4. use vars qw($VERSION);
  5. $VERSION = sprintf '4.%03d', q$Revision: #3 $ =~ /\D(\d+)\s*$/;
  6.  
  7. use Tk 800.005;
  8. require Tk::Image;
  9. require Tk::Photo;
  10.  
  11. use base qw(DynaLoader);
  12.  
  13. bootstrap Tk::PNG $Tk::VERSION;
  14.  
  15. 1;
  16.  
  17. __END__
  18.  
  19. =head1 NAME
  20.  
  21. Tk::PNG - PNG loader for Tk::Photo
  22.  
  23. =head1 SYNOPSIS
  24.  
  25.   use Tk;
  26.   use Tk::PNG;
  27.  
  28.   my $image = $widget->Photo('-format' => 'png', -file => 'something.png');
  29.  
  30.  
  31. =head1 DESCRIPTION
  32.  
  33. This is an extension for Tk800.* which supplies
  34. PNG format loader for Photo image type.
  35.  
  36.  
  37. =head1 AUTHOR
  38.  
  39. Nick Ing-Simmons E<lt>nick@ing-simmons.netE<gt>
  40.  
  41. =cut
  42.  
  43.  
  44.