diff options
Diffstat (limited to 'generic/tkTextImage.c')
| -rw-r--r-- | generic/tkTextImage.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tkTextImage.c b/generic/tkTextImage.c index 61108d0..b6b411c 100644 --- a/generic/tkTextImage.c +++ b/generic/tkTextImage.c @@ -402,7 +402,8 @@ EmbImageConfigure( Tcl_SetHashValue(hPtr, eiPtr); eiPtr->body.ei.name = (char *)ckalloc(length + 1); memcpy(eiPtr->body.ei.name, name, length + 1); - Tcl_DStringResult(textPtr->interp, &newName); + Tcl_SetObjResult(textPtr->interp, Tcl_NewStringObj(name, -1)); + Tcl_DStringFree(&newName); return TCL_OK; } |