diff options
Diffstat (limited to 'generic/ttk/ttkFrame.c')
| -rw-r--r-- | generic/ttk/ttkFrame.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/ttk/ttkFrame.c b/generic/ttk/ttkFrame.c index 3e50a7f..7860024 100644 --- a/generic/ttk/ttkFrame.c +++ b/generic/ttk/ttkFrame.c @@ -206,9 +206,10 @@ int TtkGetLabelAnchorFromObj( error: if (interp) { - Tcl_SetObjResult(interp, Tcl_ObjPrintf( - "Bad label anchor specification %s", Tcl_GetString(objPtr))); - Tcl_SetErrorCode(interp, "TTK", "LABEL", "ANCHOR", NULL); + Tcl_ResetResult(interp); + Tcl_AppendResult(interp, + "Bad label anchor specification ", Tcl_GetString(objPtr), + NULL); } return TCL_ERROR; } |