remove

$line remove dot …: outtakes dots. For internal use only.

obj method line remove args {
  if {$args eq "all"} then {
    set args [my dots]
  }
  lappend result
  foreach dot $args {
    lappend result $dot
    $dot remove $self
    set index [lsearch [my dots] $dot]
    my dots [lreplace [my dots] $index $index]
  }
  set result
}