From 1e6a0f1565eeefe908d89b9f2f8ef4cb671f6231 Mon Sep 17 00:00:00 2001
From: etienne
Date: Fri, 20 Jun 2003 16:21:46 +0000
Subject: Prise en compte dans les demos du nouvel emplacement du module Logo.
 Ecriture d'un petit man Tk::Zinc::Logo.

---
 Perl/Zinc/Logo.pm | 46 +++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 45 insertions(+), 1 deletion(-)

(limited to 'Perl/Zinc/Logo.pm')

diff --git a/Perl/Zinc/Logo.pm b/Perl/Zinc/Logo.pm
index 5e9db69..b83155f 100644
--- a/Perl/Zinc/Logo.pm
+++ b/Perl/Zinc/Logo.pm
@@ -16,7 +16,7 @@ use strict;
 use Carp;
 use Math::Trig;
 
-Construct Tk::Widget 'Tk::Zinc::Logo';
+Construct Tk::Widget 'ZincLogo';
 
 
 my @Gradiants;
@@ -184,4 +184,48 @@ sub ajustLineWidth {
 
 1;
 
+__END__
+
+=head1 NAME
+
+Tk::Zinc::Logo - a perl module for drawing the TkZinc logo. 
+
+
+=head1 SYNOPSIS
+
+ use Tk::Zinc::Logo;
+ my $zinc = MainWindow->new()->Zinc()->pack;
+ my $logo = $zinc->ZincLogo([options]);
+
+
+
+=head1 OPTIONS 
+
+=over
+
+=item B<-parent> => zinc group
+
+Specify the parent group. Default is 1.
+
+=item B<-position> => [x, y]
+
+Specify the relative position of the logo in its parent group. Default is [0, 0].
+
+=item B<-priority> => integer
+
+Specify the priority of the logo in its parent group. Default is 500.
+
+=item B<-scale> => [sx, sy]
+
+Scecify the xscale and yscale factors of the logo. Default is [1, 1].
+
+
+=back
+    
+
+=head1 AUTEUR
+
+Jean-Luc Vinot <vinot@cena.fr>
+
+
 
-- 
cgit v1.1