changeFillColor

$fill changeFillColor color: changes width if not constraint by fillcolor

obj method fill changeFillColor color {
  if {$color ne "" && ![$self constraint fillcolor]} then {
    $self configure -fill $color
  }
}