aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Perl/Zinc.pm26
1 files changed, 6 insertions, 20 deletions
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__