From 2e1c9f4bc1611a60244db29be0c735bb591f561b Mon Sep 17 00:00:00 2001
From: mertz
Date: Wed, 6 Nov 2002 08:54:44 +0000
Subject: suppression du type d'item beziez

---
 Perl/demos/Tk/demos/zinc_lib/transforms.pl | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

(limited to 'Perl/demos/Tk')

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();
   }
-- 
cgit v1.1