changeFillColor

$group changeFillColor color: changes width if not constraint by linewidth

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