From 5f9ec05c636fd79d9c92f0c541134a46ec04fdfd Mon Sep 17 00:00:00 2001
From: mertz
Date: Thu, 3 Apr 2003 09:30:01 +0000
Subject: - portage par JLV du logozinc avec l'item curve et des portions de
 bezier - passage au nouveaux formats de gradients (zinc >> 3.2.6h) - ajout de
 tags aux diff�rents �lements graphiques pour les besoins de la demo  
 tkZincLogo.pl

---
 Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Perl/demos/Tk')

diff --git a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl
index a898a7d..98ef310 100644
--- a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl
@@ -95,8 +95,8 @@ sub modifyGradient {
     $yrate = 0 if $yrate < 0;
     $yrate = 1 if $yrate > 1;
     my $gradientpercent = sprintf ("%d", $yrate * 100);
-    
-    $zinc->itemconfigure ('letters', -fillcolor => "=axial 270|#ffffff 0 28|#66848c $gradientpercent|#7192aa");    
+
+    $zinc->itemconfigure ('zinc_shape', -fillcolor => "=axial 270|#ffffff 0 28|#66848c $gradientpercent|#7192aa");    
 }
 
 
-- 
cgit v1.1