diff options
| author | fvogel <fvogelnew1@free.fr> | 2024-01-11 20:58:00 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2024-01-11 20:58:00 (GMT) |
| commit | 55a6db2f7ab1df83b8adbe699439a1598cb8f80d (patch) | |
| tree | 919b21c20e3bb514f0647316ad4fb4933e064406 | |
| parent | b492084ad9e631e40f092b9920a50e9a88156ac9 (diff) | |
| download | tk-55a6db2f7ab1df83b8adbe699439a1598cb8f80d.zip tk-55a6db2f7ab1df83b8adbe699439a1598cb8f80d.tar.gz tk-55a6db2f7ab1df83b8adbe699439a1598cb8f80d.tar.bz2 | |
Fix bug in previous commit.
| -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; } |