diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-07-29 17:55:29 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-07-29 17:55:29 (GMT) |
| commit | 27b42b57118a651074b7f1fcc859fc4ae00090d0 (patch) | |
| tree | 08f1a3f320a79a97a0575dbb2738fa3fde376755 /unix/tkUnixSend.c | |
| parent | 77acd42d86b6416b8ee9420f6e9ff759f06c28ab (diff) | |
| download | tk-27b42b57118a651074b7f1fcc859fc4ae00090d0.zip tk-27b42b57118a651074b7f1fcc859fc4ae00090d0.tar.gz tk-27b42b57118a651074b7f1fcc859fc4ae00090d0.tar.bz2 | |
Purged Tcl_AppendElement from all non-test code.
Diffstat (limited to 'unix/tkUnixSend.c')
| -rw-r--r-- | unix/tkUnixSend.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/unix/tkUnixSend.c b/unix/tkUnixSend.c index e2d1e39..a263a61 100644 --- a/unix/tkUnixSend.c +++ b/unix/tkUnixSend.c @@ -1232,6 +1232,7 @@ TkGetInterpNames( { TkWindow *winPtr = (TkWindow *) tkwin; NameRegistry *regPtr; + Tcl_Obj *resultObj = Tcl_NewObj(); char *p; /* @@ -1266,7 +1267,8 @@ TkGetInterpNames( * The application still exists; add its name to the result. */ - Tcl_AppendElement(interp, entryName); + Tcl_ListObjAppendElement(NULL, resultObj, + Tcl_NewStringObj(entryName, -1)); } else { int count; @@ -1289,6 +1291,7 @@ TkGetInterpNames( } } RegClose(regPtr); + Tcl_SetObjResult(interp, resultObj); return TCL_OK; } |