gh-103735: Tkinter: remove handling for uninteresting "procbody" Tcl value type (GH-103736)

This commit is contained in:
Christopher Chavez 2023-07-26 04:11:50 -05:00 committed by GitHub
parent 579100f6d7
commit d96ca41688
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -317,7 +317,6 @@ typedef struct {
const Tcl_ObjType *WideIntType; const Tcl_ObjType *WideIntType;
const Tcl_ObjType *BignumType; const Tcl_ObjType *BignumType;
const Tcl_ObjType *ListType; const Tcl_ObjType *ListType;
const Tcl_ObjType *ProcBodyType;
const Tcl_ObjType *StringType; const Tcl_ObjType *StringType;
} TkappObject; } TkappObject;
@ -595,7 +594,6 @@ Tkapp_New(const char *screenName, const char *className,
v->WideIntType = Tcl_GetObjType("wideInt"); v->WideIntType = Tcl_GetObjType("wideInt");
v->BignumType = Tcl_GetObjType("bignum"); v->BignumType = Tcl_GetObjType("bignum");
v->ListType = Tcl_GetObjType("list"); v->ListType = Tcl_GetObjType("list");
v->ProcBodyType = Tcl_GetObjType("procbody");
v->StringType = Tcl_GetObjType("string"); v->StringType = Tcl_GetObjType("string");
/* Delete the 'exit' command, which can screw things up */ /* Delete the 'exit' command, which can screw things up */
@ -1175,10 +1173,6 @@ FromObj(TkappObject *tkapp, Tcl_Obj *value)
return result; return result;
} }
if (value->typePtr == tkapp->ProcBodyType) {
/* fall through: return tcl object. */
}
if (value->typePtr == tkapp->StringType) { if (value->typePtr == tkapp->StringType) {
return unicodeFromTclObj(value); return unicodeFromTclObj(value);
} }