diff options
Diffstat (limited to 'Perl/demos/Tk')
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/color-x.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/color-x.pl b/Perl/demos/Tk/demos/zinc_lib/color-x.pl index ca6dcb5..62937b2 100644 --- a/Perl/demos/Tk/demos/zinc_lib/color-x.pl +++ b/Perl/demos/Tk/demos/zinc_lib/color-x.pl @@ -58,6 +58,9 @@ $zinc->add('text', 1, # we are using here the X explicit notation for rgb color # we could also have used CIE encoding. If interested, # please read the X man pages +my $gradient = ($^O eq 'linux') ? "=axial 0 | rgb:ffff/0/0;40 | rgb:0/ffff/0;40 50 | rgb:0/0/ffff;40" + : "=axial 0 | #ff0000;40 | #00ff00;40 50 | #0000ff;40"; + $zinc->add('rectangle', 1, [10, 210, 690, 300], -fillcolor => "=axial 0 | rgb:ffff/0/0;40 | rgb:0/ffff/0;40 50 | rgb:0/0/ffff;40", -filled => 1); $zinc->add('text', 1, |