import Tk 800.021 from CPAN

git-cpan-module:   Tk
git-cpan-version:  800.021
git-cpan-authorid: NI-S
git-cpan-file:     authors/id/N/NI/NI-S/Tk800.021.tar.gz

Author: Nick Ing-Simmons

Change.log

@@ -1,3 +1,160 @@
+Change 1826 on 2000/04/21 by nick@bactrian
+
+	A few more sprintf's converted to return int SVs directly
+
+Change 1825 on 2000/04/21 by nick@bactrian
+
+	Fix REFCNT botch which has been plaguing us for so long.
+
+Change 1824 on 2000/04/20 by nick@pluto
+
+	Use private handle for reading director for FBox
+
+Change 1823 on 2000/04/20 by nick@pluto
+
+	Attempting to debug PERL_DESTRUCT_LEVEL=3 issues.
+	Seems to SEGFAULT during exit of t/fbox.t (Linux and Solaris2.7,
+	perl5.005_03). 
+	
+	Two more exit cleanup attempts:
+	1. Stop using raw sharepvn() for Tk_GetUid() so we 
+	   don't get all the refcount issues with string table.
+	2. Remove (redundant?) self-reference in Tcl_TraceVar* 'U' magic.
+
+Change 1822 on 2000/04/15 by nick@linux
+
+	'Too late for INIT hackery for Event.xs'
+
+Change 1821 on 2000/04/15 by nick@bactrian
+
+	Re-enable B::C compile (at least with 5.00503)
+
+Change 1820 on 2000/04/10 by nick@bactrian
+
+	Fix new Optionmenu to not call callback unless it is
+	setting value or FBox at least goes into a loop.
+	Also remove work-round for old Optionmenu behaviour from FBox
+
+Change 1819 on 2000/04/10 by nick@pluto
+
+	Add aliases to BrowseEntry config options to make it more like Optionmenu.
+	Make both Optionmenu and BrowseEntry honour incoming -textvariable
+	if valid, but re-set it if -options set to list which 
+	does not include it.
+
+Change 1818 on 2000/04/07 by nick@bactrian
+
+	Avoid use of undef when Entry part of BrowseEntry gets
+	ButtonMotion events.
+
+Change 1815 on 2000/04/05 by nick@pluto
+
+	Don't hard-code /usr/local/perl
+
+Change 1814 on 2000/04/03 by nick@bactrian
+
+	dTHR -> dTHX everywhere (+ fallback to dTHR if not defined).
+
+Change 1813 on 2000/04/02 by nick@bactrian
+
+	Fix typo
+
+Change 1812 on 2000/04/02 by nick@bactrian
+
+	Increment version to 800.021 for testing
+
+Change 1811 on 2000/04/02 by nick@bactrian
+
+	Win32-ish tolerance of (e.g. C:/) as path in Fbox.
+
+Change 1810 on 2000/04/02 by nick@bactrian
+
+	Avoid READABLE/readable name clash in Event.xs for VMS.
+
+Change 1809 on 2000/04/01 by nick@bactrian
+
+	Merge img1.2.3 builds and passes t/photo.t
+
+Change 1808 on 2000/04/01 by nick@bactrian
+
+	Raw merge of img1.2.3
+
+Change 1805 on 2000/04/01 by nick@bactrian
+
+	Make patch for XrmOption tidier
+
+Change 1804 on 2000/04/01 by nick@bactrian
+
+	Fix Tk::Xrm with multiple mainwindows
+
+Change 1803 on 2000/03/31 by nick@bactrian
+
+	VERSION tweaks (I must automate that somehow ...)
+
+Change 1802 on 2000/03/31 by nick@bactrian
+
+	- allow ->index in TList
+	- Exist check in Table's layout method
+	- Document corner in Scrolled.
+
+Change 1801 on 2000/03/31 by nick@bactrian
+
+	Various tweaks from mailbox backlog
+	- Tiler scroll behaviour
+	- remove 'use English' from demos/widget.
+	- rename configspec.pod ConfigSpecs.pod
+	- Loose MsgBox.pm
+
+Change 1800 on 2000/03/31 by nick@bactrian
+
+	Dialog(Box) foreground/background propagation
+	Add <Control-underscore> as <<Undo>>
+	Protect Tiler from divide by zero
+	Avoid gcc options to non gcc.
+
+Change 1799 on 2000/03/31 by nick@bactrian
+
+	Fix Tix style issues with multiple MainWindows.
+
+Change 1798 on 2000/03/31 by nick@bactrian
+
+	Steve's -labelXxxx patch.
+	More
+
+Change 1797 on 2000/03/30 by nick@bactrian
+
+	Dratted $VERSION again.
+
+Change 1796 on 2000/03/30 by nick@bactrian
+
+	Document and attempt to work round the -Bforcearchive issue on OpenBSD.
+	While in there restrict types of files in t directory that are considered.
+
+Change 1794 on 2000/03/30 by nick@bactrian
+
+	Don't create callback for BackgroundError with raw array.
+
+Change 1792 on 2000/03/30 by nick@bactrian
+
+	Update versions of patched files.
+
+Change 1791 on 2000/03/30 by nick@linux
+
+	Avoid ->Delegate AUTOLOAD scheme if not appropriate
+
+Change 1790 on 2000/03/30 by nick@bactrian
+
+	Add README.OpenBSD discussing the -Bforcearchive issue.
+	Steve's fileevent.t
+
+Change 1788 on 2000/03/27 by nick@bactrian
+
+	Steve's tweak to untie issue with Tk::Event::IO
+
+Change 1787 on 2000/03/27 by nick@bactrian
+
+	Tk800.020 release prep.
+
 Change 1786 on 2000/03/27 by nick@bactrian_nt
 
 	An attempt to get 'ActiveWindow' right on Win32

Changes

@@ -4,6 +4,19 @@ release is at the top.
 Change.log is generated from perforce database, it is therefore
 complete, but short on detail.
 
+Changes in Tk800.021
+	Steve's patches for fileevent and -labelXxxxx
+	Fixed the 'Delagate' bug introduced trying to make AUTOLOAD clean.
+	Tweaks to Optionmenu and BrowseEntry to make them more like each other
+	and better tolerate changing the options/choices list.
+	Made B::C* work again for perl5.005_03 (perl5.6.0 has problems).
+	Use dTHX every where we had dTHR - should build against threaded perl
+	(STILL NOT THREAD SAFE).
+	Fix name clash in Event for VMS.
+	Merge production Img1.2.3
+	Fix Tk::Xrm and Tix Style with multiple MainWindows
+	Found and fixed the 'Attempt to free unreferenced scalar' issue.
+
 Changes in Tk800.020
 	Various tweaks for perl5.6.0
 	Fix ->itemconfigure of grouped canvas items.

DragDrop/DragDrop.pm

@@ -4,7 +4,7 @@ require Tk::Toplevel;
 require Tk::Label;
 
 use vars qw($VERSION);
-$VERSION = '3.027'; # $Id: //depot/Tk8/DragDrop/DragDrop.pm#27 $
+$VERSION = '3.029'; # $Id: //depot/Tk8/DragDrop/DragDrop.pm#29 $
 
 use base  qw(Tk::DragDrop::Common Tk::Toplevel);
 
@@ -21,10 +21,10 @@ Construct Tk::Widget 'DragDrop';
 use strict;
 use vars qw(%type @types);
 use Carp;
-                      
 
-# There is a snag with having a token window and moving to 
-# exactly where cursor is - the cursor is "inside" the token 
+
+# There is a snag with having a token window and moving to
+# exactly where cursor is - the cursor is "inside" the token
 # window - hence it is not "inside" the dropsite window
 # so we offset X,Y by OFFSET pixels.
 sub OFFSET () {3}
@@ -126,7 +126,7 @@ sub event
  $w->parent->Tk::bind($value,[$w,'StartDrag']);
 }
 
-# 
+#
 
 sub FindSite
 {
@@ -144,13 +144,13 @@ sub FindSite
  else
   {
    warn 'No sitetypes';
-  }                                       
+  }
  my $new = $site || 'undef';
  my $over = $token->{'Over'};
  if ($over)
   {
    if (!$over->Match($site))
-    {             
+    {
      $over->Leave($token,$e);
      delete $token->{'Over'};
     }
@@ -159,7 +159,7 @@ sub FindSite
   {
    unless ($token->{'Over'})
     {
-     $site->Enter($token,$e); 
+     $site->Enter($token,$e);
      $token->{'Over'} = $site;
     }
    $site->Motion($token,$e) if (defined $site)
@@ -200,7 +200,7 @@ sub NewDrag
       }
     }
   }
-}                      
+}
 
 sub Drag
 {
@@ -211,7 +211,7 @@ sub Drag
  $token = $token->toplevel;
  $token->MoveToplevelWindow($X+OFFSET,$Y+OFFSET);
  $token->FindSite($X,$Y,$e);
-}       
+}
 
 sub Done
 {
@@ -225,7 +225,7 @@ sub Done
  $token->withdraw;
  delete $w->{'Dragging'};
  $w->update;
-}        
+}
 
 sub AcceptDrop
 {
@@ -245,13 +245,13 @@ sub HandleLoose
 {
  my ($w,$seln) = @_;
  return '';
-}            
+}
 
 sub InstallHandlers
 {
  my ($token,$seln) = @_;
- my $w = $token->parent;                  
- $token->configure(-selection => $seln) if $seln;
+ my $w = $token->parent;
+ $token->configure('-selection' => $seln) if $seln;
  $seln = $token->cget('-selection');
  if ($token->{InstallHandlers})
   {
@@ -307,7 +307,7 @@ sub StartDrag
     {
      my $dx = $was->[0] - $X;
      my $dy = $was->[1] - $Y;
-     if (sqrt($dx*$dx+$dy*$dy) > $token->cget('-delta')) 
+     if (sqrt($dx*$dx+$dy*$dy) > $token->cget('-delta'))
       {
        unless ($token->Callback('-startcommand',$token,$e))
         {

Entry/Entry.pm

@@ -12,7 +12,7 @@ package Tk::Entry;
 # This program is free software; you can redistribute it and/or
 
 use vars qw($VERSION);
-$VERSION = '3.032'; # $Id: //depot/Tk8/Entry/Entry.pm#32 $
+$VERSION = '3.033'; # $Id: //depot/Tk8/Entry/Entry.pm#33 $
 
 # modify it under the same terms as Perl itself, subject
 # to additional disclaimer in license.terms due to partial
@@ -281,7 +281,9 @@ sub MouseSelect
  my $x = shift;
  $Tk::selectMode = shift if (@_);
  my $cur = $w->index('@' . $x);
+ return unless defined $cur;
  my $anchor = $w->index('anchor');
+ return unless defined $anchor;
  if (($cur != $anchor) || (abs($Tk::pressX - $x) >= 3))
   {
    $Tk::mouseMoved = 1

Event/Event.pm

@@ -1,8 +1,8 @@
 package Tk::Event;
 use vars qw($VERSION $XS_VERSION @EXPORT_OK);
 END { CleanupGlue() }
-$VERSION = '3.021'; # $Id: //depot/Tk8/Event/Event.pm#21 $
-$XS_VERSION = '800.020';
+$VERSION = '3.022'; # $Id: //depot/Tk8/Event/Event.pm#22 $
+$XS_VERSION = '800.021';
 require DynaLoader;
 use base  qw(Exporter DynaLoader);
 @EXPORT_OK = qw($XS_VERSION DONT_WAIT WINDOW_EVENTS  FILE_EVENTS