[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__
Commit	Line	Data
86530b38 AT	1	package Tk::Photo;
	2
	3	use vars qw($VERSION);
	4	$VERSION = '3.014'; # $Id: //depot/Tk8/Photo/Photo.pm#14 $
	5
	6	use Tk qw($XS_VERSION);
	7
	8	use vars qw($VERSION);
	9	$VERSION = '3.014'; # $Id: //depot/Tk8/Photo/Photo.pm#14 $
	10
	11	use base qw(Tk::Image);
	12
	13	Construct Tk::Image 'Photo';
	14
	15	bootstrap Tk::Photo;
	16
	17	sub Tk_image { 'photo' }
	18
	19	Tk::Methods('blank','copy','data','formats','get','put','read','redither','write');
	20
	21	1;
	22	__END__