From: Christopher Chavez <chrischavez@gmx.us>
Date: Wed, 26 Jul 2023 09:11:50 +0000 (-0500)
Subject: gh-103735: Tkinter: remove handling for uninteresting "procbody" Tcl value type ... 
X-Git-Tag: v3.13.0a1~1200
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=d96ca41688b9c2a8d261c340ae98438ca41796d8;p=thirdparty%2FPython%2Fcpython.git

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

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