Lines Matching refs:ancestor
514 set ancestor $parentNode
515 while { ![string equal $ancestor "root"] } {
516 if { [string equal $ancestor $node] } {
519 set ancestor $parent($ancestor)
616 set ancestor $parentNode
617 while { ![string equal $ancestor "root"] } {
618 if { [string equal $ancestor $node] } {
621 set ancestor $parent($ancestor)