add

$fill add (line or fill or group) …

adds lines

obj method fill empty {} {
  set lines [my lines]
  $self lines group [my group]
  my lines {}
  $self draw no
  set lines
}

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