changeLineColor

$fill changeLineColor color: changes width if not contsraint by linecolor

obj method fill changeLineColor color {
  if {$color ne "" && ![$self constraint linecolor]} then {
    $self lines changeLineColor $color
  }
}