[Help-smalltalk] [PATCH]Support for tcl-8.6.x

[Jochen Schmitt]

Hello,

I have to find out, that the expression interp->result will not supported
on tcl-8.6.x anymore.

So I have created the following patch which you may find below.

Best Regrads:

diff -up smalltalk-3.2.5/packages/blox/tk/BloxTK.c.tk86 
smalltalk-3.2.5/packages/blox/tk/BloxTK.c
--- smalltalk-3.2.5/packages/blox/tk/BloxTK.c.tk86      2013-03-23 
20:56:26.000000000 +0100
+++ smalltalk-3.2.5/packages/blox/tk/BloxTK.c   2014-05-29 16:34:15.744694202 
+0200
@@ -173,12 +173,12 @@ tclInit (void)
 
   if (Tcl_Init (interp) == TCL_ERROR)
     {
-      fprintf (stderr, "Tcl_Init failed: %s\n", interp->result);
+      fprintf (stderr, "Tcl_Init failed: %s\n", Tcl_GetStringResult(interp));
       exit (1);
     }
   if (Tk_Init (interp) == TCL_ERROR)
     {
-      fprintf (stderr, "Tk_Init failed: %s\n", interp->result);
+      fprintf (stderr, "Tk_Init failed: %s\n", Tcl_GetStringResult(interp));
       exit (1);
     }
   Tcl_CreateCommand (interp, "callback", doCallback, NULL, NULL);