diff options
author | mertz | 2002-11-06 08:54:44 +0000 |
---|---|---|
committer | mertz | 2002-11-06 08:54:44 +0000 |
commit | 2e1c9f4bc1611a60244db29be0c735bb591f561b (patch) | |
tree | 5b1ee61ab4a1c54dda72173154b8c4d31c815b68 /Perl/demos | |
parent | 6bbb2d55b607b3384931a91ea8b0d10a6db0be93 (diff) | |
download | tkzinc-2e1c9f4bc1611a60244db29be0c735bb591f561b.zip tkzinc-2e1c9f4bc1611a60244db29be0c735bb591f561b.tar.gz tkzinc-2e1c9f4bc1611a60244db29be0c735bb591f561b.tar.bz2 tkzinc-2e1c9f4bc1611a60244db29be0c735bb591f561b.tar.xz |
suppression du type d'item beziez
Diffstat (limited to 'Perl/demos')
-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(); } |