Here are a few patches to improve Stubs support for BLT2.4i. 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	Sun Jun 27 09:20:25 1999
--- src/bltCanvEps.c	Sun Jun 27 09:29:34 1999
***************
*** 102,108 ****
  
  static Tk_CustomOption tagsOption =
  {
!     Tk_CanvasTagsParseProc, Tk_CanvasTagsPrintProc, (ClientData)NULL
  };
  
  extern Tk_CustomOption bltLengthOption;
--- 102,108 ----
  
  static Tk_CustomOption tagsOption =
  {
!     (Tk_OptionParseProc *) NULL, (Tk_OptionPrintProc *) NULL, (ClientData)NULL
  };
  
  extern Tk_CustomOption bltLengthOption;
***************
*** 1627,1631 ****
--- 1627,1633 ----
  Blt_InitEpsCanvasItem(interp)
      Tcl_Interp *interp;		/* Not used */
  {
+     tagsOption.parseProc = Tk_CanvasTagsParseProc;
+     tagsOption.printProc = Tk_CanvasTagsPrintProc;
      Tk_CreateItemType(&epsItemType);
  }
*** src/bltInit.c.orig	Sun Jun 27 01:43:36 1999
--- src/bltInit.c	Sun Jun 27 02:08:47 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 ExprMinProc, ExprMaxProc;
  #endif
***************
*** 257,263 ****
  #endif /*WIN32*/
  
      /* Check that we have compiled and linked against the same version of Tk. */
!     if (Tcl_PkgRequire(interp, "Tk", TK_VERSION, 1) == NULL) {
  	return TCL_ERROR;
      }
      /* Set the version variable. We'll use it in the following script. */
--- 267,276 ----
  #endif /*WIN32*/
  
      /* Check that we have compiled and linked against the same version of Tk. */
!     if (Tcl_InitStubs(interp, "8.1", 0) == NULL) {
! 	return TCL_ERROR;
!     }
!     if (Tk_InitStubs(interp, "8.1", 0) == NULL) {
  	return TCL_ERROR;
      }
      /* Set the version variable. We'll use it in the following script. */
*** src/bltUnixMain.c.orig	Sun Jun 27 01:45:41 1999
--- src/bltUnixMain.c	Sun Jun 27 01:46:12 1999
***************
*** 45,50 ****
--- 45,53 ----
   * software.  
   */
  
+ #undef USE_TCL_STUBS
+ #undef USE_TK_STUBS
+ 
  #include <tcl.h>
  #include <tk.h>
  
*** src/bltWinMain.c.orig	Sun Jun 27 01:45:47 1999
--- src/bltWinMain.c	Sun Jun 27 01:46:56 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>
  
