aboutsummaryrefslogtreecommitdiff
path: root/Perl
diff options
context:
space:
mode:
Diffstat (limited to 'Perl')
-rw-r--r--Perl/demos/Tk/demos/zinc_lib/transforms.pl13
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();
}