[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Help-smalltalk] [PATCH]Support for tcl-8.6.x
From: |
Jochen Schmitt |
Subject: |
[Help-smalltalk] [PATCH]Support for tcl-8.6.x |
Date: |
Thu, 29 May 2014 17:01:22 +0200 |
User-agent: |
Mutt/1.5.23 (2014-03-12) |
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] [PATCH]Support for tcl-8.6.x,
Jochen Schmitt <=