aboutsummaryrefslogtreecommitdiff
path: root/Perl/demos
diff options
context:
space:
mode:
Diffstat (limited to 'Perl/demos')
-rw-r--r--Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl10
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);
}
}