Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / sun4-solaris / Tk / Photo.pm

package Tk::Photo;

use vars qw($VERSION);
$VERSION = '3.014'; # $Id: //depot/Tk8/Photo/Photo.pm#14 $

use Tk qw($XS_VERSION);

use vars qw($VERSION);
$VERSION = '3.014'; # $Id: //depot/Tk8/Photo/Photo.pm#14 $

use base  qw(Tk::Image);

Construct Tk::Image 'Photo';

bootstrap Tk::Photo;

sub Tk_image { 'photo' }

Tk::Methods('blank','copy','data','formats','get','put','read','redither','write');

1;
__END__