Method code for $frob.has_ancestor()

[Turn off line numbering]

---

  1: arg this, ancestor;
  2: 
  3: return (> pass(ancestor) <);

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit

Method Ancestry Override:

 ----    9 $frob.has_ancestor(this, ancestor)
 !---    6 $root.has_ancestor(obj)