topgroup

$group topgroup
returns outermost containing group

obj method group topgroup {} {
  if {[my group] eq ""} then $self else {
    [my group] topgroup
  }
}

© Wolf-Dieter Busch | Home | Sitemap | Urheber | A-Z