From ac0c4613a66b7e16aa12e412393c08a222ee6d1c Mon Sep 17 00:00:00 2001
From: mertz
Date: Tue, 11 Jun 2002 15:28:24 +0000
Subject: minor modif usefull only when this script is called many times by the
 zinc-demos script

---
 Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'Perl')

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);
 	}  
     }
-- 
cgit v1.1