From 9d1b7ae65b103525a2f28ebcb43d2c580a04d2d4 Mon Sep 17 00:00:00 2001 From: Guido van Rossum Date: Wed, 29 Apr 1998 16:17:01 +0000 Subject: 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. --- Modules/_tkinter.c | 13 +++++++++++++ 1 file changed, 13 insertions(+) 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} }; -- cgit v0.12