parent $lock_class object $contains_lock var $root child_index 0 var $root fertile 0 var $root manager $contains_lock var $root owners [$contains_lock] var $root writable [$contains_lock] var $root readable ['parameters, 'methods, 'code] var $root trusted [] var $root owned [$contains_lock] var $root inited 1 var $root dbref 'contains_lock method test arg objlist, testee, [args]; var x; for x in (objlist) { if (testee.contains(x)) return 1; } return 0; .