diff options
Diffstat (limited to 'Perl/Zinc.pm')
-rw-r--r-- | Perl/Zinc.pm | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/Perl/Zinc.pm b/Perl/Zinc.pm new file mode 100644 index 0000000..7b1a9db --- /dev/null +++ b/Perl/Zinc.pm @@ -0,0 +1,41 @@ +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","class","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__ |