Implement tcl object __cmp__.

diff --git a/Modules/_tkinter.c b/Modules/_tkinter.c
index e1238d691326f21ff833c9e040ba87044d54cfe0..a61bf7f3abcf76597ef0c4acca773f146aa4e1e6 100644 (file)
--- a/Modules/_tkinter.c
+++ b/Modules/_tkinter.c
@@ -810,6 +810,17 @@ PyTclObject_repr(PyTclObject *self)
        return PyString_FromString(buf);
 }
 
+static int
+PyTclObject_cmp(PyTclObject *self, PyTclObject *other)
+{
+       int res;
+       res = strcmp(Tcl_GetString(self->value),
+                    Tcl_GetString(other->value));
+       if (res < 0) return -1;
+       if (res > 0) return 1;
+       return 0;
+}
+
 PyDoc_STRVAR(get_typename__doc__, "name of the Tcl type");
 
 static PyObject*
@@ -843,7 +854,7 @@ statichere PyTypeObject PyTclObject_Type = {
        0,                      /*tp_print*/
        0,                      /*tp_getattr*/
        0,                      /*tp_setattr*/
-       0,                      /*tp_compare*/
+       (cmpfunc)PyTclObject_cmp,       /*tp_compare*/
        (reprfunc)PyTclObject_repr,     /*tp_repr*/
        0,                      /*tp_as_number*/
        0,                      /*tp_as_sequence*/