1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
$NetBSD: patch-ab,v 1.1 2005/05/26 02:52:47 markd Exp $
--- Pax/paxtkinter.c.orig 2003-05-04 06:55:36.000000000 +1200
+++ Pax/paxtkinter.c
@@ -1866,6 +1866,9 @@ Tkinter_Create(PyObject *self, PyObject
char *className = NULL;
int interactive = 0;
+ int ignored_int = 0;
+ char *ignored_charp = NULL;
+
baseName = strrchr(Py_GetProgramName(), '/');
if (baseName != NULL)
baseName++;
@@ -1873,9 +1876,16 @@ Tkinter_Create(PyObject *self, PyObject
baseName = Py_GetProgramName();
className = "Tk";
+#if PY_VERSION_HEX >= 0x02040000
+ if (!PyArg_ParseTuple(args, "|zssiiiiz:create",
+ &screenName, &baseName, &className,
+ &interactive, &ignored_int, &ignored_int,
+ &ignored_int, &ignored_charp))
+#else
if (!PyArg_ParseTuple(args, "|zssi",
&screenName, &baseName, &className,
&interactive))
+#endif
return NULL;
return (PyObject *) Tkapp_New(screenName, baseName, className,
|