diff options
author | mertz | 2003-04-03 09:30:01 +0000 |
---|---|---|
committer | mertz | 2003-04-03 09:30:01 +0000 |
commit | 5f9ec05c636fd79d9c92f0c541134a46ec04fdfd (patch) | |
tree | 09a0f336f7fecad10177295e86187838d1ad869d /Perl/demos | |
parent | 8797c6c9965e3d3e443d5faf43dd4a07f6f590b7 (diff) | |
download | tkzinc-5f9ec05c636fd79d9c92f0c541134a46ec04fdfd.zip tkzinc-5f9ec05c636fd79d9c92f0c541134a46ec04fdfd.tar.gz tkzinc-5f9ec05c636fd79d9c92f0c541134a46ec04fdfd.tar.bz2 tkzinc-5f9ec05c636fd79d9c92f0c541134a46ec04fdfd.tar.xz |
- 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
Diffstat (limited to 'Perl/demos')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl | 4 |
1 files changed, 2 insertions, 2 deletions
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"); } |