diff options
| -rw-r--r-- | Perl/Zinc.pm | 26 |
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__ |