|
1 | 1 | diff --git a/Modules/_tkinter.c b/Modules/_tkinter.c |
2 | | -index 2a3e65b6c97..8bed45f933d 100644 |
| 2 | +index 2a3e65b6c97..d601a2b7c2a 100644 |
3 | 3 | --- a/Modules/_tkinter.c |
4 | 4 | +++ b/Modules/_tkinter.c |
5 | 5 | @@ -55,9 +55,24 @@ Copyright (C) 1994 Steen Lumholt. |
@@ -44,6 +44,33 @@ index 2a3e65b6c97..8bed45f933d 100644 |
44 | 44 | #if USE_TCL_UNICODE |
45 | 45 | int byteorder = NATIVE_BYTEORDER; |
46 | 46 | const Tcl_UniChar *u = Tcl_GetUnicodeFromObj(value, &len); |
| 47 | +@@ -510,7 +526,7 @@ unicodeFromTclObj(Tcl_Obj *value) |
| 48 | + static PyObject * |
| 49 | + Split(const char *list) |
| 50 | + { |
| 51 | +- int argc; |
| 52 | ++ Tcl_Size argc; |
| 53 | + const char **argv; |
| 54 | + PyObject *v; |
| 55 | + |
| 56 | +@@ -612,7 +628,7 @@ SplitObj(PyObject *arg) |
| 57 | + return result; |
| 58 | + } |
| 59 | + else if (PyUnicode_Check(arg)) { |
| 60 | +- int argc; |
| 61 | ++ Tcl_Size argc; |
| 62 | + const char **argv; |
| 63 | + const char *list = PyUnicode_AsUTF8(arg); |
| 64 | + |
| 65 | +@@ -627,7 +643,7 @@ SplitObj(PyObject *arg) |
| 66 | + /* Fall through, returning arg. */ |
| 67 | + } |
| 68 | + else if (PyBytes_Check(arg)) { |
| 69 | +- int argc; |
| 70 | ++ Tcl_Size argc; |
| 71 | + const char **argv; |
| 72 | + const char *list = PyBytes_AS_STRING(arg); |
| 73 | + |
47 | 74 | @@ -655,6 +671,10 @@ class _tkinter.tktimertoken "TkttObject *" "&Tktt_Type_spec" |
48 | 75 |
|
49 | 76 | /**** Tkapp Object ****/ |
@@ -275,3 +302,12 @@ index 2a3e65b6c97..8bed45f933d 100644 |
275 | 302 | Tcl_Obj **objv; |
276 | 303 | if (Tcl_ListObjGetElements(Tkapp_Interp(self), |
277 | 304 | ((PyTclObject*)arg)->value, |
| 305 | +@@ -2365,7 +2405,7 @@ _tkinter_tkapp_split(TkappObject *self, PyObject *arg) |
| 306 | + |
| 307 | + if (PyTclObject_Check(arg)) { |
| 308 | + Tcl_Obj *value = ((PyTclObject*)arg)->value; |
| 309 | +- int objc; |
| 310 | ++ Tcl_Size objc; |
| 311 | + Tcl_Obj **objv; |
| 312 | + int i; |
| 313 | + if (Tcl_ListObjGetElements(Tkapp_Interp(self), value, |
0 commit comments