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