empty

$fill empty: removes contained lines, returns list of removed lines.

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