minor modif usefull only when this script is called many times

by the zinc-demos script

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);
 	}  
     }