diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-17 17:10:20 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-17 17:10:20 (GMT) |
commit | 5a88b1460b0b97b1bc3f5688b5569b0d9ab64b73 (patch) | |
tree | a61d035da7e05b8d8bf7af8f6cbbf921e332eda5 /generic/tclTimer.c | |
parent | 31d14afe3097976313d5f806bdf13ba3dab11de9 (diff) | |
parent | b563c159d7f63f0a4ca1e9190ec4111d5d4908d9 (diff) | |
download | tcl-5a88b1460b0b97b1bc3f5688b5569b0d9ab64b73.zip tcl-5a88b1460b0b97b1bc3f5688b5569b0d9ab64b73.tar.gz tcl-5a88b1460b0b97b1bc3f5688b5569b0d9ab64b73.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclTimer.c')
-rw-r--r-- | generic/tclTimer.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclTimer.c b/generic/tclTimer.c index eff2f8a..365bfe3 100644 --- a/generic/tclTimer.c +++ b/generic/tclTimer.c @@ -948,8 +948,8 @@ Tcl_AfterObjCmd( for (afterPtr = assocPtr->firstAfterPtr; afterPtr != NULL; afterPtr = afterPtr->nextPtr) { if (assocPtr->interp == interp) { - Tcl_ListObjAppendElement(NULL, resultObj, Tcl_ObjPrintf( - "after#%d", afterPtr->id)); + Tcl_ListObjAppendElement(NULL, resultObj, Tcl_ObjPrintf( + "after#%d", afterPtr->id)); } } Tcl_SetObjResult(interp, resultObj); @@ -968,15 +968,15 @@ Tcl_AfterObjCmd( Tcl_SetErrorCode(interp, "TCL","LOOKUP","EVENT", eventStr, NULL); return TCL_ERROR; } else { - Tcl_Obj *resultListPtr; + Tcl_Obj *resultListPtr; - TclNewObj(resultListPtr); - Tcl_ListObjAppendElement(interp, resultListPtr, - afterPtr->commandPtr); - Tcl_ListObjAppendElement(interp, resultListPtr, Tcl_NewStringObj( + TclNewObj(resultListPtr); + Tcl_ListObjAppendElement(interp, resultListPtr, + afterPtr->commandPtr); + Tcl_ListObjAppendElement(interp, resultListPtr, Tcl_NewStringObj( (afterPtr->token == NULL) ? "idle" : "timer", -1)); Tcl_SetObjResult(interp, resultListPtr); - } + } break; default: Tcl_Panic("Tcl_AfterObjCmd: bad subcommand index to afterSubCmds"); |