From 14f42823e29bd35f4acd0cb0e6d756bd67c5d46c Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 16 Jan 2008 07:21:06 +0000 Subject: 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 --- Master/tlpkg/lib/Perl5_lib-TL_inst/Tk/Photo.pm | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 Master/tlpkg/lib/Perl5_lib-TL_inst/Tk/Photo.pm (limited to 'Master/tlpkg/lib') 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__ -- cgit v1.2.3