From 3a402c2ae195749f6e5b5db5a8b5689820aa6a91 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Thu, 2 Dec 1999 14:20:06 +0000
Subject: Mise � jour suite � l'ajout des nouvelles commandes.

---
 Perl/Zinc.pm | 26 ++++++--------------------
 1 file changed, 6 insertions(+), 20 deletions(-)

(limited to 'Perl/Zinc.pm')

diff --git a/Perl/Zinc.pm b/Perl/Zinc.pm
index dfa7d1d..751e14f 100644
--- a/Perl/Zinc.pm
+++ b/Perl/Zinc.pm
@@ -16,26 +16,12 @@ bootstrap Tk::Radar $Tk::VERSION;
 
 sub Tk_cmd { \&Tk::radar }
 
-Tk::Methods("add","addtag","bbox","bind","type","cget","configure","currentpart",
-	    "dtag","find","gettags","hasfields","hasparts","hastag","itemcget",
-	    "itemconfigure","lower","overlapmethod","raise","remove","scale",
-	    "translate","worldcoords");
-
-#use Tk::Submethods ( 'create' => [qw(arc bitmap image line oval 
-#                                  polygon rectangle text window)],
-#                      'scan'   => [qw(mark dragto)],
-#                      'select' => [qw(from clear item to)],
-#                     );
-
-# *CanvasBind  = \&Tk::bind;
-# *CanvasFocus = \&Tk::focus;
-
-# sub ClassInit
-# {
-#  my ($class,$mw) = @_;
-#  $mw->XYscrollBind($class);
-#  return $class;
-# }
+Tk::Methods("add", "addtag", "anchorxy", "bbox", "bind", "cget",
+	    "chggroup", "configure", "currentpart", "dtag", "find",
+	    "gettags", "hasanchors", "hasfields", "hasparts", "hastag",
+	    "itemcget", "itemconfigure", "lower", "raise", "remove",
+	    "rotate", "scale", "tapply", "tdelete", "transform",
+	    "translate", "treset", "trestore", "tsave", "type");
 
 1;
 __END__
-- 
cgit v1.1