add

$dot add args: stores internally lines which use dot object

obj method dot add args {
  set lines [my lines]
  foreach line $args {
    if {$line ni $lines} then {
      lappend lines $line
    }
  }
  my lines $lines
}