blob: a596dc4d78bb1995d04fdb53ded32f398ed36b2d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
package Tk::Photo;
use vars qw($VERSION);
$VERSION = sprintf '4.%03d', 4+q$Revision: #4 $ =~ /\D(\d+)\s*$/;
use Tk qw($XS_VERSION);
use base qw(Tk::Image);
Construct Tk::Image 'Photo';
sub Tk_image { 'photo' }
Tk::Methods('blank','copy','data','formats','get','put','read',
'redither','transparency','write');
use Tk::Submethods (
'transparency' => [qw/get set/],
);
1;
__END__
|
