Added _id attribute to GrafPort objects (real id of grafport, numeric)

diff --git a/Mac/Modules/qd/Qdmodule.c b/Mac/Modules/qd/Qdmodule.c
index 88cddaf7d30116996e6df13e25a8968f3f4186ac..af6a92e54809dc133f9a8596b5fb5600adab5243 100644 (file)
--- a/Mac/Modules/qd/Qdmodule.c
+++ b/Mac/Modules/qd/Qdmodule.c
@@ -40,9 +40,6 @@ extern int GrafObj_Convert(PyObject *, GrafPtr *);
 extern PyObject *BMObj_New(BitMapPtr);
 extern int BMObj_Convert(PyObject *, BitMapPtr *);
 
-extern PyObject *PMObj_New(PixMapHandle);
-extern int PMObj_Convert(PyObject *, PixMapHandle *);
-
 extern PyObject *WinObj_WhichWindow(WindowPtr);
 
 #include <QuickDraw.h>
@@ -218,6 +215,9 @@ static PyObject *GrafObj_getattr(self, name)
                                if ( strcmp(name, "spExtra") == 0 )
                                        return Py_BuildValue("O&", PyMac_BuildFixed, self->ob_itself->spExtra);
                                /* XXXX Add more, as needed */
+                               /* This one is so we can compare grafports: */
+                               if ( strcmp(name, "_id") == 0 )
+                                       return Py_BuildValue("l", (long)self->ob_itself);
                        }
        return Py_FindMethodInChain(&GrafObj_chain, (PyObject *)self, name);
 }

diff --git a/Mac/Modules/qd/qdsupport.py b/Mac/Modules/qd/qdsupport.py
index 203f8c05b94b326cf4fbdadfd0935aaf7a5dd054..61e7dd852db99250b8290c0eed59bd75ea7546cc 100644 (file)
--- a/Mac/Modules/qd/qdsupport.py
+++ b/Mac/Modules/qd/qdsupport.py
@@ -204,6 +204,9 @@ class MyGRObjectDefinition(GlobalObjectDefinition):
                        if ( strcmp(name, "spExtra") == 0 )
                                return Py_BuildValue("O&", PyMac_BuildFixed, self->ob_itself->spExtra);
                        /* XXXX Add more, as needed */
+                       /* This one is so we can compare grafports: */
+                       if ( strcmp(name, "_id") == 0 )
+                               return Py_BuildValue("l", (long)self->ob_itself);
                }""")
 
 class MyBMObjectDefinition(GlobalObjectDefinition):