Prise en compte dans les demos du nouvel emplacement du module Logo.

Ecriture d'un petit man Tk::Zinc::Logo.

1 files changed, 45 insertions, 1 deletions

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>
+
+