import Tk 804.025_beta16 from CPAN

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

Author: Nick Ing-Simmons

Change.log

@@ -1,3 +1,58 @@
+Change 3173 on 2004/03/07 by nick@llama
+
+	Work round LVs (e.g. substr) not upgrading to UTF-8
+	when asked. (https://rt.cpan.org/Ticket/Display.html?id=5529)
+
+Change 3172 on 2004/03/07 by nick@llama
+
+	fileevent fix for socket with autoflush
+	from [email protected] (which long been sitting in RT queue)
+
+Change 3171 on 2004/03/06 by nick@llama
+
+	Remove some gcc-isms from PNG/libpng makefile.solaris
+	Based on mail from Mun Johl <[email protected]>
+
+Change 3170 on 2004/03/06 by nick@camel
+
+	Allow for possible skipped tearoff entry in a menubar
+	menu when computing index for active element
+	for <<MenuSelect>> etc.
+
+Change 3169 on 2004/03/06 by nick@llama
+
+	Steve's patch to TIEHANDLE docs in Text.
+
+Change 3168 on 2004/03/06 by nick@llama
+
+	HPUX/IA64 fix for libpng from
+	"SEIP,CHRISTOPHER (HP-Roseville,ex1)" <[email protected]>
+
+Change 3167 on 2004/03/06 by nick@llama
+
+	Steve's patch to make listbox demos take focus.
+
+Change 3166 on 2004/02/29 by nick@llama
+
+	VTABLE cleanup load side
+
+Change 3165 on 2004/02/29 by nick@llama
+
+	A little more protection on loading
+	wrong vtables.
+
+Change 3164 on 2004/02/29 by nick@llama
+
+	tkImgGIF does not need vtables
+
+Change 3163 on 2004/02/29 by nick@llama
+
+	AIX PNG patch
+
+Change 3162 on 2004/02/28 by nick@llama
+
+	Tk-804.025_beta15 Release Preparation
+
 Change 3161 on 2004/02/28 by nick@llama
 
 	Fix my e-mail address in a few spots

Compound/Compound.xs

@@ -19,8 +19,7 @@
 #include "pTk/tkVMacro.h"
 
 DECLARE_VTABLES;
-TixVtab     *TixVptr     ;
-TixintVtab  *TixintVptr  ;
+DECLARE_TIX;
 
 extern Tk_ImageType tixCompoundImageType;
 
@@ -33,7 +32,6 @@ PROTOTYPES: DISABLE
 BOOT:
  {
   IMPORT_VTABLES;
-  TixVptr     =     INT2PTR(TixVtab *, SvIV(perl_get_sv("Tk::TixVtab",5)));
-  TixintVptr  =  INT2PTR(TixintVtab *, SvIV(perl_get_sv("Tk::TixintVtab",5)));
+  IMPORT_TIX;
   Tk_CreateImageType(&tixCompoundImageType);
  }

Event/Event.xs

@@ -472,6 +472,7 @@ PerlIOHandler *filePtr;
    IO *tmpio = GvIOp(filePtr->untied);
    IoIFP(tmpio) = IoIFP(filePtr->io);
    IoOFP(tmpio) = IoOFP(filePtr->io);
+   IoFLAGS(tmpio) = IoFLAGS(filePtr->io);
    return newRV((SV *) filePtr->untied);
   }
  return &PL_sv_undef;

HList/HList.xs

@@ -20,8 +20,7 @@
 
 
 DECLARE_VTABLES;
-TixVtab     *TixVptr     ;
-TixintVtab  *TixintVptr  ;
+DECLARE_TIX;
 
 MODULE = Tk::HList	PACKAGE = Tk
 
@@ -37,6 +36,5 @@ CODE:
 BOOT:
  {
   IMPORT_VTABLES;
-  TixVptr     =     INT2PTR(TixVtab *, SvIV(perl_get_sv("Tk::TixVtab",5)));
-  TixintVptr  =  INT2PTR(TixintVtab *, SvIV(perl_get_sv("Tk::TixintVtab",5)));
+  IMPORT_TIX;
  }

IO/IO.xs

@@ -20,8 +20,7 @@
 #include "tkGlue.h"
 #include "tkGlue.m"
 
-TkeventVtab *TkeventVptr;
-
+DECLARE_EVENT;
 
 #define InputStream PerlIO *
 #define OutputStream PerlIO *
@@ -291,5 +290,5 @@ InputStream	f
 
 BOOT:
  {
-  TkeventVptr  = INT2PTR(TkeventVtab *, SvIV(perl_get_sv("Tk::TkeventVtab",GV_ADDWARN|GV_ADD)));
+  IMPORT_EVENT;
  }

InputO/InputO.xs

@@ -20,8 +20,7 @@
 
 
 DECLARE_VTABLES;
-TixVtab     *TixVptr     ;
-TixintVtab  *TixintVptr  ;
+DECLARE_TIX;
 
 MODULE = Tk::InputO	PACKAGE = Tk
 
@@ -37,6 +36,5 @@ CODE:
 BOOT:
  {
   IMPORT_VTABLES;
-  TixVptr     =     INT2PTR(TixVtab *, SvIV(perl_get_sv("Tk::TixVtab",5)));
-  TixintVptr  =  INT2PTR(TixintVtab *, SvIV(perl_get_sv("Tk::TixintVtab",5)));
+  IMPORT_TIX;
  }

JPEG/JPEG.xs

@@ -23,8 +23,7 @@
 extern Tk_PhotoImageFormat	imgFmtJPEG;
 
 DECLARE_VTABLES;
-TkimgphotoVtab *TkimgphotoVptr;
-ImgintVtab *ImgintVptr;
+DECLARE_PHOTO;
 
 MODULE = Tk::JPEG	PACKAGE = Tk::JPEG
 
@@ -33,7 +32,6 @@ PROTOTYPES: DISABLE
 BOOT:
  {
   IMPORT_VTABLES;
-  TkimgphotoVptr  =   (TkimgphotoVtab *) SvIV(FindTkVarName("TkimgphotoVtab",5));    \
-  ImgintVptr  =   (ImgintVtab *) SvIV(FindTkVarName("ImgintVtab",5));    \
+  IMPORT_PHOTO;
   Tk_CreatePhotoImageFormat(&imgFmtJPEG);
  }

MANIFEST

@@ -658,6 +658,7 @@ PNG/libpng/scripts/makefile.gcc
 PNG/libpng/scripts/makefile.gcmmx
 PNG/libpng/scripts/makefile.hpgcc
 PNG/libpng/scripts/makefile.hpux
+PNG/libpng/scripts/makefile.hpux.ia64
 PNG/libpng/scripts/makefile.ibmc
 PNG/libpng/scripts/makefile.intel
 PNG/libpng/scripts/makefile.knr

Mwm/Mwm.xs

@@ -21,8 +21,7 @@
 
 
 DECLARE_VTABLES;
-TixVtab     *TixVptr     ;
-TixintVtab  *TixintVptr  ;
+DECLARE_TIX;
 
 
 MODULE = Tk::Mwm	PACKAGE = Tk::Mwm
@@ -32,8 +31,7 @@ PROTOTYPES: DISABLE
 BOOT:
  {
   IMPORT_VTABLES;
-  TixVptr     =     INT2PTR(TixVtab *, SvIV(perl_get_sv("Tk::TixVtab",5)));
-  TixintVptr  =  INT2PTR(TixintVtab *, SvIV(perl_get_sv("Tk::TixintVtab",5)));
+  IMPORT_TIX;
   /* Initialize the display item types */
 #if !defined(__WIN32__) && !defined(__PM__)
   Lang_TkSubCommand("mwm",Tix_MwmCmd);

NBFrame/NBFrame.xs

@@ -20,8 +20,7 @@
 
 
 DECLARE_VTABLES;
-TixVtab     *TixVptr     ;
-TixintVtab  *TixintVptr  ;
+DECLARE_TIX;
 
 MODULE = Tk::NBFrame	PACKAGE = Tk
 
@@ -34,10 +33,8 @@ CODE:
   TKXSRETURN(XSTkCommand(cv,1,Tix_NoteBookFrameCmd,items,&ST(0)));
  }
 
-
 BOOT:
  {
   IMPORT_VTABLES;
-  TixVptr     =     INT2PTR(TixVtab *, SvIV(perl_get_sv("Tk::TixVtab",5)));
-  TixintVptr  =  INT2PTR(TixintVtab *, SvIV(perl_get_sv("Tk::TixintVtab",5)));
+  IMPORT_TIX;
  }