1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
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", "bind", "cget",
"chggroup", "configure", "coords", "currentpart", "dtag", "find",
"gettags", "group", "hasanchors", "hasfields", "hasparts", "hastag",
"itemcget", "itemconfigure", "lower", "raise", "remove",
"rotate", "scale", "tapply", "tdelete", "transform",
"translate", "treset", "trestore", "tsave", "type");
1;
__END__
|
