diff options
| author | mertz | 2003-05-13 08:01:47 +0000 |
|---|---|---|
| committer | mertz | 2003-05-13 08:01:47 +0000 |
| commit | e3945520da769f3ec0820d8c573cb0fd0dfff4e6 (patch) | |
| tree | 3541fb7ce962ae1fb5caaab920f7f802f601dd0f /Perl/debug | |
| parent | 91295391c5a74275858c621b1993bf80d08890ef (diff) | |
| download | tkzinc-e3945520da769f3ec0820d8c573cb0fd0dfff4e6.zip tkzinc-e3945520da769f3ec0820d8c573cb0fd0dfff4e6.tar.gz tkzinc-e3945520da769f3ec0820d8c573cb0fd0dfff4e6.tar.bz2 tkzinc-e3945520da769f3ec0820d8c573cb0fd0dfff4e6.tar.xz | |
If this module is read more than once, it does no bug anymore
when creatin named gradient. This was the case for zinc-demos
Diffstat (limited to 'Perl/debug')
| -rw-r--r-- | Perl/debug/LogoZinc.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Perl/debug/LogoZinc.pm b/Perl/debug/LogoZinc.pm index f32fb6d..0b81b62 100644 --- a/Perl/debug/LogoZinc.pm +++ b/Perl/debug/LogoZinc.pm @@ -123,7 +123,7 @@ sub drawLogo { if ($builder{'-gradset'}) { while (my ($name, $gradiant) = each( %{$builder{'-gradset'}})) { # création des gradiants nommés - $zinc->gname($gradiant, $name); + $zinc->gname($gradiant, $name) unless $zinc->gname($name); push(@Gradiants, $name); } } |