diff options
Diffstat (limited to 'Perl/demos/Tk')
| -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 |