changeLineColor

$group changeLineColor color: changes width if not constraint by linecolor

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