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","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;
# }

1;
__END__