diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-13 09:10:27 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-13 09:10:27 (GMT) |
commit | 7b18f8549882ec8e98fe379f497f934aa730f1ef (patch) | |
tree | e62eebdafa774452041282b356b392652614d727 /generic | |
parent | 65611c0cee452c06020dd2e0d279344d25846ee9 (diff) | |
download | tk-7b18f8549882ec8e98fe379f497f934aa730f1ef.zip tk-7b18f8549882ec8e98fe379f497f934aa730f1ef.tar.gz tk-7b18f8549882ec8e98fe379f497f934aa730f1ef.tar.bz2 |
Eliminate unnecessary Tcl_Panic()
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tkCanvas.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tkCanvas.c b/generic/tkCanvas.c index 2d90e36..2b5568d 100644 --- a/generic/tkCanvas.c +++ b/generic/tkCanvas.c @@ -498,8 +498,9 @@ ItemIndex( return itemPtr->typePtr->indexProc(interp, (Tk_Canvas) canvasPtr, itemPtr, objPtr, indexPtr); } else { -#if defined(TK_NO_DEPRECATED) || (TK_MAJOR_VERSION > 8) - Tcl_Panic("Flag TK_CONFIG_OBJS is mandatory"); +#if defined(TK_NO_DEPRECATED) + Tcl_AppendResult(interp, "Flag TK_CONFIG_OBJS is mandatory", (void *)NULL); + return TCL_ERROR; #else return itemPtr->typePtr->indexProc(interp, (Tk_Canvas) canvasPtr, itemPtr, (Tcl_Obj *) Tcl_GetString(objPtr), indexPtr); |