From dec60589aef2842b89e968759f702744bbefe06a Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 12 Jan 2000 13:56:04 +0000
Subject: Mise  jour des commandes

---
 Perl/Zinc.pm  | 8 ++++----
 Perl/t/zinc.t | 4 ++--
 2 files changed, 6 insertions(+), 6 deletions(-)

(limited to 'Perl')

diff --git a/Perl/Zinc.pm b/Perl/Zinc.pm
index 0e3910b..e7139d2 100644
--- a/Perl/Zinc.pm
+++ b/Perl/Zinc.pm
@@ -16,11 +16,11 @@ bootstrap Tk::Radar $Tk::VERSION;
 
 sub Tk_cmd { \&Tk::radar }
 
-Tk::Methods("add", "addtag", "anchorxy", "bbox", "bind", "cget",
-	    "chggroup", "configure", "coords", "currentpart", "dtag", "find",
+Tk::Methods("add", "addtag", "anchorxy", "bbox", "becomes", "bind", "cget",
+	    "chggroup", "clone", "configure", "coords", "currentpart", "dtag", "find",
 	    "gettags", "group", "hasanchors", "hasfields", "hasparts", "hastag",
-	    "itemcget", "itemconfigure", "lower", "raise", "remove",
-	    "rotate", "scale", "tapply", "tdelete", "transform",
+	    "itemcget", "itemconfigure", "lower", "monitor", "raise", "remove",
+	    "rotate", "scale", "tdelete", "transform",
 	    "translate", "treset", "trestore", "tsave", "type");
 
 1;
diff --git a/Perl/t/zinc.t b/Perl/t/zinc.t
index 3350b3f..cb95f9c 100644
--- a/Perl/t/zinc.t
+++ b/Perl/t/zinc.t
@@ -148,7 +148,7 @@ $radar->itemconfigure($map3,-mapinfo => "paris-w");
 
 
 ###################################################
-#creation rectangle, arc, multipoint
+#creation rectangle, arc, curve
 ###################################################
 
 $rect = $radar->add(rectangle, $top, [-50, -50, 50, -80], -linecolor => bisque);
@@ -167,7 +167,7 @@ print "arc tags=", join('|',$radar->gettags($arc)),"\n";
 
 $radar->itemconfigure($arc, -startangle => 0, -extent => 360);
 
-$mp = $radar->add(multipoint, $top, -300, 0, -250, 100, -80, 20);
+$mp = $radar->add(curve, $top, -300, 0, -250, 100, -80, 20);
 $radar->itemconfigure($mp, -filled => 1, -linewidth => 4, -linecolor => yellow,
     -fillcolor => tan, -fillpattern => AlphaStipple8);
 $radar->itemconfigure($mp, -marker => AtcSymbol9 , -markercolor => red);
-- 
cgit v1.1