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

[Paolo Bonzini]

Il 29/05/2014 17:01, Jochen Schmitt ha scritto:
> 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);
>
> _______________________________________________
> help-smalltalk mailing list
> address@hidden
> https://lists.gnu.org/mailman/listinfo/help-smalltalk

Thanks, looks good.

Holger, can you commit it?

Paolo