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]
  }
}

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