import Tk 804.025_beta8 from CPAN

git-cpan-module:   Tk
git-cpan-version:  804.025_beta8
git-cpan-authorid: NI-S
git-cpan-file:     authors/id/N/NI/NI-S/Tk-804.025_beta8.tar.gz

Change.log

@@ -1,3 +1,51 @@
+Change 3019 on 2003/12/06 by nick@camel
+
+	MinGW libpng makefile was not checked in or in MANIFEST
+
+Change 3017 on 2003/12/06 by nick@camel
+
+	Win32 hangs if you display dialog which is transient
+	to a withdrawn window?
+
+Change 3016 on 2003/12/06 by nick@camel
+
+	dTHXs stuff fow Windows builds with PERL_NO_GET_CONTEXT
+
+Change 3015 on 2003/12/06 by nick@llama
+
+	"Loose some debug prints in Win32 Drag/Drop
+
+Change 3014 on 2003/12/06 by nick@llama
+
+	"Jack" <[email protected]> - latest version of
+	Balloon.pm tweaks
+
+Change 3013 on 2003/12/06 by nick@llama
+
+	Patch for timestamp for WM_TAKE_FOCUS events.
+	from Scott Smedley <[email protected]>
+	There is a bug in Perl/Tk that neglects to pass the timestamp associated
+	with a WM_TAKE_FOCUS event. This leads to focussing race conditions in
+	aplications that use a globally active focussing policy.
+	The correct functionality is documented in:
+	http://tronche.com/gui/x/icccm/sec-4.html#s-4.1.7
+
+Change 3012 on 2003/12/06 by nick@llama
+
+	Demos patch from Steve
+
+Change 3011 on 2003/12/06 by nick@llama
+
+	A number of patches from Slaven.
+
+Change 3010 on 2003/12/06 by nick@llama
+
+	Removed debug as suggested by Jim Winters <[email protected]>
+
+Change 3009 on 2003/12/02 by nick@llama
+
+	Change.log update for beta7
+
 Change 3008 on 2003/12/02 by nick@llama
 
 	Avoid 'nsv' as a variable after scare with encGlue.c in perl5.9

DragDrop/Win32Site/Win32Site.pm

@@ -1,7 +1,7 @@
 package Tk::DragDrop::Win32Site;
 
 use vars qw($VERSION);
-$VERSION = '4.004'; # $Id: //depot/Tkutf8/DragDrop/Win32Site/Win32Site.pm#4 $
+$VERSION = '4.004'; # $Id: //depot/Tkutf8/DragDrop/Win32Site/Win32Site.pm#5 $
 
 use Tk qw($XS_VERSION);
 require DynaLoader;
@@ -28,15 +28,15 @@ sub InitSite
 
 sub Win32Drop
 {
- print join(',',@_),"\n";
+ # print join(',',@_),"\n";
  my ($w,$site,$msg,$wParam,$lParam) = @_;
  my ($x,$y,@files) = DropInfo($wParam);
  my $cb = $site->{'-dropcommand'};
  if ($cb)
   {
    foreach my $file (@files)
     {
-     print "$file @ $x,$y\n";
+     # print "$file @ $x,$y\n";
      $w->clipboardClear;
      $w->clipboardAppend('--',$file);
      $cb->Call('CLIPBOARD',$x,$y);

Event/Event.xs

@@ -292,6 +292,7 @@ Tcl_DumpActiveMemory (CONST char *fileName)
 char *
 Tcl_Realloc(char *p, unsigned int size)
 {
+ dTHXs;
  if ((int) size < 0)
   abort();
  p = PerlMemShared_realloc(p,size*sizeof(char));
@@ -301,6 +302,7 @@ Tcl_Realloc(char *p, unsigned int size)
 char *
 Tcl_Alloc(unsigned int size)
 {
+ dTHXs;
  char *p;
  if ((int) size < 0)
   abort();
@@ -311,6 +313,7 @@ Tcl_Alloc(unsigned int size)
 void
 Tcl_Free(char *p)
 {
+ dTHXs;
  PerlMemShared_free(p);
 }
 

Event/pTkCallback.c

@@ -99,6 +99,7 @@ LangCallback *
 LangCopyCallback(sv)
 SV *sv;
 {
+ dTHXs;
  if (sv)
   SvREFCNT_inc(sv);
  return sv;

IO/IO.xs

@@ -81,9 +81,6 @@ int mask;
 #if defined(__WIN32__) && !defined(__CYGWIN__)
 static int
 make_nonblock (pTHX_ PerlIO *f,int *mode,int *newmode)
-PerlIO *f;
-int *mode;
-int *newmode;
 {
  croak("Cannot make nonblocking on Win32 yet");
  return -1;