package Tk::Radar; #require Tk; use Tk; #use AutoLoader; #use Exporter; use base qw(Tk::Widget); Construct Tk::Widget 'Radar'; use vars qw($VERSION); $VERSION = '1.000'; bootstrap Tk::Radar $Tk::VERSION; sub Tk_cmd { \&Tk::radar } 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", "monitor", "raise", "remove", "rotate", "scale", "tdelete", "transform", "translate", "treset", "trestore", "tsave", "type"); 1; __END__