Here are a few patches to improve Stubs support for BLT2.4j. It
is far from complete yet, and a few more manual modifications
to the Makefile should be made to make it 100% functional.

                                       Jan Nijtmans

*** src/bltCanvEps.c.orig	Sat Aug 28 17:42:19 1999
--- src/bltCanvEps.c	Thu Oct  7 21:32:59 1999
***************
*** 118,124 ****
  
  static Tk_CustomOption tagsOption =
  {
!     Tk_CanvasTagsParseProc, Tk_CanvasTagsPrintProc, (ClientData)NULL
  };
  
  extern Tk_CustomOption bltDistanceOption;
--- 118,124 ----
  
  static Tk_CustomOption tagsOption =
  {
!     (Tk_OptionParseProc *) NULL, (Tk_OptionPrintProc *) NULL, (ClientData)NULL
  };
  
  extern Tk_CustomOption bltDistanceOption;
***************
*** 1623,1628 ****
--- 1623,1630 ----
  				 * collect font information;  0 means
  				 * final Postscript is being created. */
  {
+     tagsOption.parseProc = Tk_CanvasTagsParseProc;
+     tagsOption.printProc = Tk_CanvasTagsPrintProc;
      EpsItem *epsPtr = (EpsItem *)itemPtr;
      Tcl_DString dString;
      Printable printable;
*** src/bltInit.c.orig	Wed Sep 22 22:32:04 1999
--- src/bltInit.c	Thu Oct  7 21:38:10 1999
***************
*** 27,32 ****
--- 27,42 ----
  
  #include <bltInt.h>
  
+ #ifndef USE_TCL_STUBS
+ #undef Tcl_InitStubs
+ #define Tcl_InitStubs(a,b,c) Tcl_PkgRequire(a,"Tcl",TCL_VERSION,1)
+ #endif
+ 
+ #ifndef USE_TK_STUBS
+ #undef Tk_InitStubs
+ #define Tk_InitStubs(a,b,c) Tcl_PkgRequire(a,"Tk",TCL_VERSION,1)
+ #endif
+ 
  #ifdef __STDC__
  static Tcl_MathProc MinMathProc, MaxMathProc;
  #endif
***************
*** 250,256 ****
  {
      Tcl_DString ds;
      char *value;
-     int exact = TRUE;
  #ifdef WIN32
      HKEY key;
      DWORD result;
--- 260,265 ----
***************
*** 263,269 ****
       * Check that the version of Tk we've loaded is the same that BLT was
       * compiled and linked against.
       */
!     if (Tcl_PkgRequire(interp, "Tk", TK_VERSION, exact) == NULL) {
  	return TCL_ERROR;
      }
      /* Set the version variable. We'll use it in the following script. */
--- 272,281 ----
       * Check that the version of Tk we've loaded is the same that BLT was
       * compiled and linked against.
       */
!     if (Tcl_InitStubs(interp, "8.0", 0) == NULL) {
! 	return TCL_ERROR;
!     }
!     if (Tk_InitStubs(interp, "8.0", 0) == NULL) {
  	return TCL_ERROR;
      }
      /* Set the version variable. We'll use it in the following script. */
*** src/bltUnixMain.c.orig	Sat Aug 28 17:43:04 1999
--- src/bltUnixMain.c	Thu Oct  7 21:33:00 1999
***************
*** 45,50 ****
--- 45,53 ----
   * software.
   */
  
+ #undef USE_TCL_STUBS
+ #undef USE_TK_STUBS
+ 
  #include <tcl.h>
  #include <tk.h>
  
*** src/bltWinMain.c.orig	Sat Aug 28 17:43:10 1999
--- src/bltWinMain.c	Thu Oct  7 21:33:00 1999
***************
*** 11,16 ****
--- 11,19 ----
   * SCCS: @(#) winMain.c 1.37 98/01/20 22:47:06
   */
  
+ #undef USE_TCL_STUBS
+ #undef USE_TK_STUBS
+ 
  #include "bltInt.h"
  #include <locale.h>
  
