From: Miss Islington (bot) <31488909+miss-islington@users.noreply.github.com>
Date: Wed, 12 Nov 2025 22:44:01 +0000 (+0100)
Subject: [3.13] gh-124111: Fix TCL 9 thread detection (GH-141483)
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=83bd8689aa439166b18667cb7ace5fbd88515a47;p=thirdparty%2FPython%2Fcpython.git

[3.13] gh-124111: Fix TCL 9 thread detection (GH-141483)

(cherry picked from commit dc0987080ed66c662e8e0b24cdb8c179817bd697)

Co-authored-by: Michael Cho <michael@michaelcho.dev>
---

diff --git a/Misc/NEWS.d/next/Library/2025-11-12-15-42-47.gh-issue-124111.hTw4OE.rst b/Misc/NEWS.d/next/Library/2025-11-12-15-42-47.gh-issue-124111.hTw4OE.rst
new file mode 100644
index 000000000000..8436cd2415db
--- /dev/null
+++ b/Misc/NEWS.d/next/Library/2025-11-12-15-42-47.gh-issue-124111.hTw4OE.rst
@@ -0,0 +1,2 @@
+Updated Tcl threading configuration in :mod:`_tkinter` to assume that
+threads are always available in Tcl 9 and later.
diff --git a/Modules/_tkinter.c b/Modules/_tkinter.c
index 487bde30f40f..38e6afdea877 100644
--- a/Modules/_tkinter.c
+++ b/Modules/_tkinter.c
@@ -586,8 +586,12 @@ Tkapp_New(const char *screenName, const char *className,
 
     v->interp = Tcl_CreateInterp();
     v->wantobjects = wantobjects;
+#if TCL_MAJOR_VERSION >= 9
+    v->threaded = 1;
+#else
     v->threaded = Tcl_GetVar2Ex(v->interp, "tcl_platform", "threaded",
                                 TCL_GLOBAL_ONLY) != NULL;
+#endif
     v->thread_id = Tcl_GetCurrentThread();
     v->dispatching = 0;
     v->trace = NULL;