diff options
author | mertz | 2004-09-21 12:41:55 +0000 |
---|---|---|
committer | mertz | 2004-09-21 12:41:55 +0000 |
commit | c3f13cf54489f836d028258955c85479725f00c0 (patch) | |
tree | b14473f2ce12cd2335be59cbfe8bc72f0c37ff47 /Perl | |
parent | f342123acf5295e904df514f7303e36a4b57ae9b (diff) | |
download | tkzinc-c3f13cf54489f836d028258955c85479725f00c0.zip tkzinc-c3f13cf54489f836d028258955c85479725f00c0.tar.gz tkzinc-c3f13cf54489f836d028258955c85479725f00c0.tar.bz2 tkzinc-c3f13cf54489f836d028258955c85479725f00c0.tar.xz |
renaming gradients with the same nake in Tk::Zinc::Logo
Diffstat (limited to 'Perl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/testGraphics.pl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl b/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl index e1fc7f9..5da149b 100644 --- a/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl +++ b/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl @@ -6,7 +6,7 @@ # # Authors: Jean-Luc Vinot <vinot@cena.fr> # -# $Id: +# $Id$ #----------------------------------------------------------------------------------- use vars qw( $VERSION ); @@ -54,9 +54,9 @@ my %gradset = (# gradients zinc 'conical_ext' => '=conical 0 0 135|#ffffff;100 0|#777788;100 30|#444455;100 50|#777788;100 70|#ffffff;100 100', 'pushbtn_edge' => '=axial 140|#ffffff;100 0|#555566;100 100', 'pushbtn_edge2' => '=axial 92|#ffffff;100 0|#555566;100 100', - 'logoshape' => '=axial 270|#ffffff|#7192aa', - 'logopoint' => '=radial -20 -20|#ffffff 0|#f70000 48|#900000 80|#ab0000 100', - 'logoptshad' => '=path 0 0|#770000;64 0|#770000;70 78|#770000;0 100', + 'logoshape2' => '=axial 270|#ffffff|#7192aa', + 'logopoint2' => '=radial -20 -20|#ffffff 0|#f70000 48|#900000 80|#ab0000 100', + 'logoptshad2' => '=path 0 0|#770000;64 0|#770000;70 78|#770000;0 100', ); @@ -917,7 +917,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', -params => {-closed => 1, -filled => 1, -visible => 1, - -fillcolor => 'logoshape', + -fillcolor => 'logoshape2', -linewidth => 2.5, -linecolor => '#000000', -priority => 10, @@ -933,7 +933,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', -params => {-priority => 20, -filled => 1, -linewidth => 0, - -fillcolor => 'logoptshad', + -fillcolor => 'logoptshad2', -closed => 1, }, }, @@ -943,7 +943,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', -filled => 1, -linewidth => 1, -linecolor => '#a10000', - -fillcolor => 'logopoint', + -fillcolor => 'logopoint2', -closed => 1, }, }, @@ -1551,7 +1551,7 @@ foreach my $shape (reverse @{$shapes}) { } # création du contenu des pages -my $i = 0; +$i = 0; foreach my $pagename (reverse @pagenames) { my $pagestyle = $pagesconf{$pagename}; if ($pagestyle) { |