diff options
Diffstat (limited to 'Perl')
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/transforms.pl | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/transforms.pl b/Perl/demos/Tk/demos/zinc_lib/transforms.pl index 8c3957f..abffd04 100644 --- a/Perl/demos/Tk/demos/zinc_lib/transforms.pl +++ b/Perl/demos/Tk/demos/zinc_lib/transforms.pl @@ -57,7 +57,7 @@ $zinc->configure(-width => 500, -height => 500); my $rc = $mw->Frame()->pack(-expand => 0, -fill => 'x'); my $option = $rc->Optionmenu(-options => ['rectangle', 'arc', - 'bezier', 'curve', + 'curve', 'icon', 'tabular', 'text', 'track', 'triangles', 'waypoint'], @@ -351,14 +351,6 @@ sub newarc { -fillcolor => 'tan'); } -sub newbezier { - return $zinc->add('bezier', $currentgroup, - [-15, -15, -15, 15, 15, 15, 15, -15], - -filled => 1, - -linewidth => 0, - -fillcolor => 'tan'); -} - sub newcurve { return $zinc->add('curve', $currentgroup, [-15, -15, -15, 15, 15, 15, 15, -15], @@ -505,9 +497,6 @@ sub additem { elsif ($itemtype eq 'arc') { $item = newarc(); } - elsif ($itemtype eq 'bezier') { - $item = newbezier(); - } elsif ($itemtype eq 'curve') { $item = newcurve(); } |