gh-125235: Keep `_tkinter` TCL paths pointing to base installation on Windows (#125250)

Signed-off-by: y5c4l3 <y5c4l3@proton.me>

diff --git a/Misc/NEWS.d/next/Library/2024-10-10-18-33-31.gh-issue-125235.0kOB5I.rst b/Misc/NEWS.d/next/Library/2024-10-10-18-33-31.gh-issue-125235.0kOB5I.rst
new file mode 100644 (file)
index 0000000..f64d159
--- /dev/null
+++ b/Misc/NEWS.d/next/Library/2024-10-10-18-33-31.gh-issue-125235.0kOB5I.rst
@@ -0,0 +1,2 @@
+Keep :mod:`tkinter` TCL paths in venv pointing to base installation on
+Windows.

diff --git a/Modules/_tkinter.c b/Modules/_tkinter.c
index 4f05cab375ed6b725a5fb3dac7c3a7403ca40799..b0b70ccb8cc3d3bcc46a91eea6083631090ea943 100644 (file)
--- a/Modules/_tkinter.c
+++ b/Modules/_tkinter.c
@@ -143,7 +143,7 @@ _get_tcl_lib_path(void)
         struct stat stat_buf;
         int stat_return_value;
 
-        PyObject *prefix = PySys_GetObject("prefix");  // borrowed reference
+        PyObject *prefix = PySys_GetObject("base_prefix");  // borrowed reference
         if (prefix == NULL) {
             return NULL;
         }