summaryrefslogtreecommitdiff
path: root/Master/tlpkg/lib
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-16 07:21:06 +0000
committerNorbert Preining <preining@logic.at>2008-01-16 07:21:06 +0000
commit14f42823e29bd35f4acd0cb0e6d756bd67c5d46c (patch)
treeef96da686c080e93a35653b0e862f64bc6ef61b1 /Master/tlpkg/lib
parentec4814457dcd1c4a7d3586752ba692b8d3098321 (diff)
add missing Photo.pm, can we use only ONE perl please ...
git-svn-id: svn://tug.org/texlive/trunk@6252 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/lib')
-rw-r--r--Master/tlpkg/lib/Perl5_lib-TL_inst/Tk/Photo.pm22
1 files changed, 22 insertions, 0 deletions
diff --git a/Master/tlpkg/lib/Perl5_lib-TL_inst/Tk/Photo.pm b/Master/tlpkg/lib/Perl5_lib-TL_inst/Tk/Photo.pm
new file mode 100644
index 00000000000..a596dc4d78b
--- /dev/null
+++ b/Master/tlpkg/lib/Perl5_lib-TL_inst/Tk/Photo.pm
@@ -0,0 +1,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__