[Turn off line numbering]
1: arg obj;
2: var d, name, l;
3:
4: name = (| tosym("core_" + obj.objname()) |);
5: catch ~methodnf {
6: if ((> obj.find_method(name) <) != obj) {
7: $sys.log("** Coremethod for " + obj + " in wrong place (on " + obj.find_method(name) + ") **");
8: return;
9: }
10: } with {
11: return;
12: }
13: for d in ([obj] + obj.descendants()) {
14: catch any {
15: (> d.(name)() <);
16: } with {
17: $sys.log("** ERROR encountered in " + d + "." + name + "():");
18: for l in ($parse_lib.traceback(traceback()))
19: $sys.log(l);
20: }
21: refresh();
22: }
["// Created as a part of ColdCore, see: @help Credit"]