diff options
author | mertz | 2002-06-11 15:28:24 +0000 |
---|---|---|
committer | mertz | 2002-06-11 15:28:24 +0000 |
commit | ac0c4613a66b7e16aa12e412393c08a222ee6d1c (patch) | |
tree | ea6f3af40009e7a8f86164a84b2fb87c4b5b116d /Perl/demos | |
parent | e6628fbef5e9c8e63b38e5dd47ea8680409e7d19 (diff) | |
download | tkzinc-ac0c4613a66b7e16aa12e412393c08a222ee6d1c.zip tkzinc-ac0c4613a66b7e16aa12e412393c08a222ee6d1c.tar.gz tkzinc-ac0c4613a66b7e16aa12e412393c08a222ee6d1c.tar.bz2 tkzinc-ac0c4613a66b7e16aa12e412393c08a222ee6d1c.tar.xz |
minor modif usefull only when this script is called many times
by the zinc-demos script
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); } } |