[Turn on line numbering]
arg obj;
var d, name, l;
name = (| tosym("core_" + obj.objname()) |);
catch ~methodnf {
if ((> obj.find_method(name) <) != obj) {
$sys.log("** Coremethod for " + obj + " in wrong place (on " + obj.find_method(name) + ") **");
return;
}
} with {
return;
}
for d in ([obj] + obj.descendants()) {
catch any {
(> d.(name)() <);
} with {
$sys.log("** ERROR encountered in " + d + "." + name + "():");
for l in ($parse_lib.traceback(traceback()))
$sys.log(l);
}
refresh();
}
["// Created as a part of ColdCore, see: @help Credit"]