- Object::RemoveFromObjectList(mPointer);
- this->Delete(p);
- bbtkDebugMessage("object",2,"<## Object::Deleter : \""<<name<<"\" ["
- <<adr<<"] deleted"<<std::endl);
+ int remaining = this->Delete(p);
+ if (remaining == 0)
+ {
+ Object::RemoveFromObjectList(mPointer);
+ bbtkDebugMessage("object",2,"<## Object::Deleter : \""<<name<<"\" ["
+ <<adr<<"] deleted"<<std::endl);
+ }
+ else
+ {
+ bbtkWarning("##### Object::Deleter \""<<name<<"\" failed !!! "
+ << remaining << " reference(s) still around..."
+ <<std::endl);
+ }