remove

$dot remove args: removes lines from internal list

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