passage au nouveau format de gradient (>> 3.2.6h)

1 files changed, 6 insertions, 6 deletions

diff --git a/Perl/demos/Tk/demos/zinc_lib/counter.pl b/Perl/demos/Tk/demos/zinc_lib/counter.pl
index 5df227b..7c03047 100644
--- a/Perl/demos/Tk/demos/zinc_lib/counter.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/counter.pl
@@ -29,17 +29,17 @@ my $zinc = $mw->Zinc(-width => 700, -height => 400,
 my $r = $zinc->add('rectangle', 1,
 		     [0,0,700,700],
 		     -filled => 1,  -linewidth => 0,
-		     -fillcolor => "red:40|green:40 50|blue:40/90"
+		     -fillcolor => "=axial 90 |red;40|green;40 50|blue;40"
 		     );
 
 # The explanation displayed when running this demo
 $zinc->add('text', 1,
 	   -position=> [10,10],
-	   -text => 'This toy-appli shows a simple counter. It is made thanks to clipping
-and contours : this is the only way to do this.
-You can drag the counter. Observe that the colour of the backgound of the
-counter is the same as the one of the window (use of clips)',
-	   -font => "9x15",
+	   -text => 'This toy-appli shows a simple counter. It is made thanks
+to clipping and contours : this is the only way to do this.
+You can drag the counter. Observe that the color of the background
+of the counter is the same as the one of the window (use of clips)',
+	   -font => "10x20",
 	   );
 
 ###################################################