/*
- * $Id: rb_evas_object.c 23 2004-06-26 22:55:31Z tilman $
+ * $Id: rb_evas_object.c 29 2004-07-08 18:47:44Z tilman $
*
* Copyright (C) 2004 Tilman Sauerbeck (tilman at code-monkey de)
*
if (*e)
evas_object_del (*e);
+ rb_hash_aset (parents, INT2NUM ((long) e), Qnil);
+
free (e);
}
GET_OBJ (self, Evas_Object, e, "EvasObject");
- snprintf (buf, sizeof (buf), "#<EvasObject:%p ptr=%p>",
+ snprintf (buf, sizeof (buf), "#<Evas::EvasObject:%p ptr=%p>",
(void *) self, *e);
return rb_str_new2 (buf);
{
GET_OBJ (self, Evas_Object, e, "EvasObject");
- if (*e) {
- evas_object_del (*e);
- *e = NULL;
- }
+ evas_object_del (*e);
+ *e = NULL;
return Qnil;
}