changeLineColor

$line changeLineColor color: changes color if not constraint by linecolor

obj method line changeLineColor color {
  if {$color ne "" && ![$self constraint linecolor]} then {
    $self configure -outline $color
  }
}