diff options
author | etienne | 2003-06-20 16:21:46 +0000 |
---|---|---|
committer | etienne | 2003-06-20 16:21:46 +0000 |
commit | 1e6a0f1565eeefe908d89b9f2f8ef4cb671f6231 (patch) | |
tree | ba2bbfa2a77a5318f18a3c3590f89172a016e497 /Perl/Zinc | |
parent | 5ae790348e37d2e01dc72cd5ebe937b7df0b7688 (diff) | |
download | tkzinc-1e6a0f1565eeefe908d89b9f2f8ef4cb671f6231.zip tkzinc-1e6a0f1565eeefe908d89b9f2f8ef4cb671f6231.tar.gz tkzinc-1e6a0f1565eeefe908d89b9f2f8ef4cb671f6231.tar.bz2 tkzinc-1e6a0f1565eeefe908d89b9f2f8ef4cb671f6231.tar.xz |
Prise en compte dans les demos du nouvel emplacement du module Logo.
Ecriture d'un petit man Tk::Zinc::Logo.
Diffstat (limited to 'Perl/Zinc')
-rw-r--r-- | Perl/Zinc/Logo.pm | 46 |
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> + + |