Premiere mouture d'integration Perl

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__