From: Guido van Rossum <guido@python.org>
Date: Wed, 29 Apr 1998 16:17:01 +0000 (+0000)
Subject: Add a new method of interpreter objects, interpaddr().  This returns
X-Git-Tag: v1.5.2a1~774
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=9d1b7ae65b103525a2f28ebcb43d2c580a04d2d4;p=thirdparty%2FPython%2Fcpython.git

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.
---

diff --git a/Modules/_tkinter.c b/Modules/_tkinter.c
index b8c59a8f7524..6226f6b46b6e 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}
 };