diff options
Diffstat (limited to 'Perl/demos')
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl b/Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl index 743120b..59bcbce 100644 --- a/Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl +++ b/Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl @@ -403,11 +403,11 @@ sub createStrip { my ($name, $gradiant); while (($name, $gradiant) = each(%gradiants)) { # création des gradiants nommés - print "création gradiant $name\n"; - $zinc->gname($gradiant, $name) ; -# $zinc->gname($gradiant, $name) ; # unless $zinc->gname($name); - # this test to avoid multiple named gradient must - # be added as soon as zinc has been extended + $zinc->gname($gradiant, $name) unless $zinc->gname($gradiant); + # the previous test is usefull only + # when this script is executed many time in the same process + # (it is typically the case in zinc-demos) + push(@stripGradiants, $name); } } |