diff options
author | mertz | 2002-11-06 08:51:53 +0000 |
---|---|---|
committer | mertz | 2002-11-06 08:51:53 +0000 |
commit | 70c96445d748c585ab74fa6c3487f06ccfec79bc (patch) | |
tree | c468161f2ed000e50fd453a56fc38d83ecdc3bc0 /Perl/demos | |
parent | 6467f34b63492e9cd4509c54684137d8afc5a1bd (diff) | |
download | tkzinc-70c96445d748c585ab74fa6c3487f06ccfec79bc.zip tkzinc-70c96445d748c585ab74fa6c3487f06ccfec79bc.tar.gz tkzinc-70c96445d748c585ab74fa6c3487f06ccfec79bc.tar.bz2 tkzinc-70c96445d748c585ab74fa6c3487f06ccfec79bc.tar.xz |
suppression des beziers dans les tests
Diffstat (limited to 'Perl/demos')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/all_options.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/all_options.pl b/Perl/demos/Tk/demos/zinc_lib/all_options.pl index c58def4..f9e7f43 100644 --- a/Perl/demos/Tk/demos/zinc_lib/all_options.pl +++ b/Perl/demos/Tk/demos/zinc_lib/all_options.pl @@ -40,8 +40,8 @@ foreach my $type qw(group icon map reticle text window) { } # These items needs some coordinates at creation time -# However curves and bezier usually needs more than 2 points. -foreach my $type qw(arc bezier curve rectangle) { +# However curves usually needs more than 2 points. +foreach my $type qw(arc curve rectangle) { $itemtypes{$type} = $zinc->add($type, 1, [0,0 , 1,1]); } # Triangles item needs at least 3 points for the coordinates |