1 files changed, 5 insertions, 5 deletions

diff --git a/Perl/demos/Tk/demos/zinc_lib/color-y.pl b/Perl/demos/Tk/demos/zinc_lib/color-y.pl
index bc00d0a..b119d0a 100644
--- a/Perl/demos/Tk/demos/zinc_lib/color-y.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/color-y.pl
@@ -17,7 +17,7 @@ my $zinc = $mw->Zinc(-width => 700, -height => 600,
 die "no openGL rendering on this X server" unless $zinc->cget(-render);
 
 
-$zinc->add('rectangle', 1, [10, 10, 690, 100], -fillcolor => "red|blue/90", -filled => 1);
+$zinc->add('rectangle', 1, [10, 10, 690, 100], -fillcolor => "=axial 90 |red |blue", -filled => 1);
 
 $zinc->add('text', 1,
 	   -font => $defaultfont,
@@ -26,7 +26,7 @@ $zinc->add('text', 1,
 	   -position => [20, 20]);
 
 
-$zinc->add('rectangle', 1, [10,110, 690, 200], -fillcolor => "red:40|blue:40/90", -filled => 1);
+$zinc->add('rectangle', 1, [10,110, 690, 200], -fillcolor => "=axial 90|red;40 |blue;40", -filled => 1);
 
 $zinc->add('text', 1,
 	   -font => $defaultfont,
@@ -34,7 +34,7 @@ $zinc->add('text', 1,
 	   -anchor => 'nw',
 	   -position => [20, 120]);
 
-$zinc->add('rectangle', 1, [10, 210, 690, 300], -fillcolor => "red:40|green:40 50|blue:40/90", -filled => 1);
+$zinc->add('rectangle', 1, [10, 210, 690, 300], -fillcolor => "=axial 90 |red;40|green;40 50|blue;40", -filled => 1);
 
 $zinc->add('text', 1,
 	   -font => $defaultfont,
@@ -50,9 +50,9 @@ $zinc->add('text', 1,
 	   -position => [20, 320]);
 
 $zinc->add('rectangle', 1, [10, 340, 690, 590], -fillcolor => "white", -filled => 1);
-$zinc->add('rectangle', 1, [200, 350, 500, 580], -fillcolor => "red:40|green:40 50|blue:40/90", -filled => 1);
+$zinc->add('rectangle', 1, [200, 350, 500, 580], -fillcolor => "=axial 90 |red;40|green;40 50|blue;40", -filled => 1);
 
-$zinc->add('rectangle', 1, [10, 400, 690, 500], -fillcolor => "yellow:40|black:40 50|cyan:40/90", -filled => 1);
+$zinc->add('rectangle', 1, [10, 400, 690, 500], -fillcolor => "=axial 90 |yellow;40|black;40 50|cyan;40", -filled => 1);