Add a new method of interpreter objects, interpaddr(). This returns

the address of the Tcl interpreter object, as an integer.  Not very
useful for the Python programmer, but this can be called by another C
extension that needs to make calls into the Tcl/Tk C API and needs to
get the address of the Tcl interpreter object.  A simple cast of the
return value to (Tcl_Interp *) will do the trick now.

1 files changed, 13 insertions, 0 deletions

diff --git a/Modules/_tkinter.c b/Modules/_tkinter.c
index b8c59a8..6226f6b 100644
--- a/Modules/_tkinter.c
+++ b/Modules/_tkinter.c
@@ -1346,6 +1346,18 @@ Tkapp_Quit(self, args)
 	return Py_None;
 }
 
+static PyObject *
+Tkapp_InterpAddr(self, args)
+	PyObject *self;
+	PyObject *args;
+{
+
+	if (!PyArg_ParseTuple(args, ""))
+		return NULL;
+
+	return PyInt_FromLong((long)Tkapp_Interp(self));
+}
+
 
 
 /**** Tkapp Method List ****/
@@ -1385,6 +1397,7 @@ static PyMethodDef Tkapp_methods[] =
 	{"mainloop", 	       Tkapp_MainLoop, 1},
 	{"dooneevent", 	       Tkapp_DoOneEvent, 1},
 	{"quit", 	       Tkapp_Quit, 1},
+	{"interpaddr",         Tkapp_InterpAddr, 1},
 	{NULL, 		       NULL}
 };