Lines 1-11
Link Here
|
1 |
--- interface/tk_c.c.orig 2011-12-03 15:49:19 UTC |
|
|
2 |
+++ interface/tk_c.c |
3 |
@@ -913,7 +913,7 @@ static char *v_eval(char *fmt, ...) |
4 |
vsnprintf(buf, sizeof(buf), fmt, ap); |
5 |
Tcl_Eval(my_interp, buf); |
6 |
va_end(ap); |
7 |
- return my_interp->result; |
8 |
+ return Tcl_GetStringResult(my_interp); |
9 |
} |
10 |
|
11 |
static const char *v_get2(const char *v1, const char *v2) |