keep the necessary bits

Author: picnixz

Modules/_tkinter.c

@@ -589,10 +589,14 @@ Tkapp_New(const char *screenName, const char *className,
           int interactive, int wantobjects, int wantTk, int sync,
           const char *use)
 {
+    PyTypeObject *type;
     TkappObject *v;
     char *argv0;
 
-    v = PyObject_New(TkappObject, (PyTypeObject *) Tkapp_Type);
+    type = (PyTypeObject *)Tkapp_Type;
+    assert(type != NULL);
+    assert(type->tp_alloc != NULL);
+    v = (TkappObject *)type->tp_alloc(type, 0);
     if (v == NULL)
         return NULL;
 
@@ -2771,10 +2775,9 @@ static void
 Tktt_Dealloc(PyObject *op)
 {
     PyTypeObject *tp = Py_TYPE(op);
-    printf("%p\n", ((TkttObject *)op)->func);
     PyObject_GC_UnTrack(op);
     TkttObject *self = TkttObject_CAST(op);
-    Py_XDECREF(self->func);
+    (void)Tktt_Clear(op);
     tp->tp_free(op);
     Py_DECREF(tp);
 }
@@ -3096,7 +3099,7 @@ Tkapp_Dealloc(PyObject *op)
     ENTER_TCL
     Tcl_DeleteInterp(Tkapp_Interp(self));
     LEAVE_TCL
-    Py_XDECREF(self->trace);
+    (void)Tkapp_Clear(op);
     tp->tp_free(self);
     Py_DECREF(tp);
     DisableEventHook();
@@ -3297,7 +3300,7 @@ static PyMethodDef Tktt_methods[] =
 };
 
 static PyType_Slot Tktt_Type_slots[] = {
-    // {Py_tp_clear, Tktt_Clear},
+    {Py_tp_clear, Tktt_Clear},
     {Py_tp_dealloc, Tktt_Dealloc},
     {Py_tp_traverse, Tktt_Traverse},
     {Py_tp_repr, Tktt_Repr},
@@ -3358,7 +3361,7 @@ static PyMethodDef Tkapp_methods[] =
 };
 
 static PyType_Slot Tkapp_Type_slots[] = {
-    // {Py_tp_clear, Tkapp_Clear},
+    {Py_tp_clear, Tkapp_Clear},
     {Py_tp_dealloc, Tkapp_Dealloc},
     {Py_tp_traverse, Tkapp_Traverse},
     {Py_tp_methods, Tkapp_methods},