[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Help-smalltalk] [PATCH 2/2] blox: Direct usage of result is deprecated
From: |
Holger Hans Peter Freyther |
Subject: |
[Help-smalltalk] [PATCH 2/2] blox: Direct usage of result is deprecated and stops working |
Date: |
Mon, 26 May 2014 08:30:31 +0200 |
Use Tcl_GetStringResult(interp) instead of interp->result on
newer versions of Tcl. It looks like Tcl_GetStringResult has
been present in the entire 8.0 series.
2014-05-26 Holger Hans Peter Freyther <address@hidden>
* BloxTK.c: Use Tcl_GetStringResult to access the result.
---
packages/blox/tk/BloxTK.c | 4 ++--
packages/blox/tk/ChangeLog | 4 ++++
2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/packages/blox/tk/BloxTK.c b/packages/blox/tk/BloxTK.c
index 2ba40b8..2f06b7f 100644
--- a/packages/blox/tk/BloxTK.c
+++ b/packages/blox/tk/BloxTK.c
@@ -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);
diff --git a/packages/blox/tk/ChangeLog b/packages/blox/tk/ChangeLog
index aefd2dc..159b177 100644
--- a/packages/blox/tk/ChangeLog
+++ b/packages/blox/tk/ChangeLog
@@ -1,3 +1,7 @@
+2014-05-26 Holger Hans Peter Freyther <address@hidden>
+
+ * BloxTK.c: Use Tcl_GetStringResult to access the result.
+
2010-12-04 Paolo Bonzini <address@hidden>
* package.xml: Remove now superfluous <file> tags.
--
1.9.1