add

$line add dot1 …

intakes dots. For internal use only.

obj method line add args {
  foreach dot $args {
    $dot add $self
    my dots [list {*}[my dots] $dot]
  }
}

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