import Tk 402.001 from CPAN

git-cpan-module:   Tk
git-cpan-version:  402.001
git-cpan-authorid: NI-S
git-cpan-file:     authors/id/N/NI/NI-S/Tk402.001.tar.gz

Bitmap/Bitmap.d

@@ -1,7 +1,7 @@
 Bitmap.o: Bitmap.c ../tkGlue.def ../pTk/tkPort.h ../pTk/Lang.h \
- ../pTk/tkConfig.h ../pTk/tk.h ../pTk/tkUnixPort.h ../pTk/tkInt.h \
- ../pTk/tkVMacro.h ../pTk/Lang.m ../pTk/Lang_f.h ../pTk/Lang.t \
- ../pTk/tk.m ../pTk/tk_f.h ../pTk/tk.t ../pTk/Xlib.h ../pTk/Xlib.m \
+ ../pTk/tkConfig.h ../pTk/LangIO.h ../pTk/tk.h ../pTk/tkUnixPort.h \
+ ../pTk/tkInt.h ../pTk/tkVMacro.h ../pTk/Lang.m ../pTk/Lang_f.h \
+ ../pTk/Lang.t ../pTk/tk.m ../pTk/tk_f.h ../pTk/tk.t ../pTk/Xlib.m \
  ../pTk/Xlib_f.h ../pTk/Xlib.t ../pTk/tkInt.m ../pTk/tkInt_f.h \
  ../pTk/tkInt.t ../tkGlue.h ../pTk/tkOption.h ../pTk/tkOption_f.h \
  ../pTk/tkOption.t ../tkGlue.m ../tkGlue_f.h ../tkGlue.t

Canvas/Canvas.d

@@ -1,7 +1,7 @@
 Canvas.o: Canvas.c ../tkGlue.def ../pTk/tkPort.h ../pTk/Lang.h \
- ../pTk/tkConfig.h ../pTk/tk.h ../pTk/tkUnixPort.h ../pTk/tkInt.h \
- ../pTk/tkVMacro.h ../pTk/Lang.m ../pTk/Lang_f.h ../pTk/Lang.t \
- ../pTk/tk.m ../pTk/tk_f.h ../pTk/tk.t ../pTk/Xlib.h ../pTk/Xlib.m \
+ ../pTk/tkConfig.h ../pTk/LangIO.h ../pTk/tk.h ../pTk/tkUnixPort.h \
+ ../pTk/tkInt.h ../pTk/tkVMacro.h ../pTk/Lang.m ../pTk/Lang_f.h \
+ ../pTk/Lang.t ../pTk/tk.m ../pTk/tk_f.h ../pTk/tk.t ../pTk/Xlib.m \
  ../pTk/Xlib_f.h ../pTk/Xlib.t ../pTk/tkInt.m ../pTk/tkInt_f.h \
  ../pTk/tkInt.t ../tkGlue.h ../pTk/tkOption.h ../pTk/tkOption_f.h \
  ../pTk/tkOption.t ../tkGlue.m ../tkGlue_f.h ../tkGlue.t

Canvas/Canvas.pm

@@ -13,6 +13,9 @@ use Tk::Submethods ( 'create' => [qw(arc bitmap image line oval
                      'select' => [qw(from clear item to)],
                     );
 
+*CanvasBind  = \&Tk::bind;
+*CanvasFocus = \&Tk::focus;
+
 sub ClassInit
 {
  my ($class,$mw) = @_;

Canvas/Makefile.PL

@@ -2,7 +2,7 @@
 
 use Tk::MMutil;
 Tk::MMutil::TkExtMakefile(
-      'LIBS'        => ["-lm"],
+      ($^O eq 'MSWin32' ? () : ('LIBS'        => ["-lm"])),
       'dynamic_ptk' => 1
       );