[3.13] gh-125235: Keep `_tkinter` TCL paths pointing to base installation on Windows...

gh-125235: Keep `_tkinter` TCL paths pointing to base installation on Windows (GH-125250)
(cherry picked from commit b3aa1b5fe260382788a2df416599325ad680a5ee)

Signed-off-by: y5c4l3 <y5c4l3@proton.me>
Co-authored-by: Y5 <124019959+y5c4l3@users.noreply.github.com>

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 cd3722f54c24ce629eaaa1c3c5daa44418de335e..a2f0cf2b01acc44817d8da4f1637943dc5fa9b37 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;
         }