void ENVIRONMENT::Active_Element_Delete(void) {
// Only the last robot in the sequence can be deleted.
if ( activeElement >= (1+numOtherObjects) )
Robot_Delete();
else
Object_Delete();
}
boolean DrawObj_delete (DrawObj **This, deletetype DbEvent,
ft F,lt Z,zz *Status)
{
DrawObj *That = *This;
if (That->destruct != DrawObj_delete)
return (That->destruct (This, DbEvent, McStat));
if (DeBug || OaBug || ClassBug)
TraceMsg (0, "\n DrawObj_delete ... ~Delete\n");
if (ClassBug)
if (sprintf (Msg, " DrawObj [%2u:%8u] %s in DB\n",
(*This)->Token.DbId, (*This)->Token.Handle, DeleteStr[DbEvent]))
TraceMsg (0, Msg);
switch (DbEvent)
{
case dbFree:
Object_FreeImage (&That->Token, McStat);
break;
case dbCommit:
Object_CommitImage (&That->Token, True, McStat);
break;
case dbDelete:
Object_Delete (&That->Token, McStat);
}
*This = NullPtr;
TRACK(TrackBak,"DrawObj_delete\n");
return (STAT);
}
