changeLineWidth

$fill changeLineWidth color: changes width if not constraint by linewidth

obj method fill changeLineWidth width {
  if {![$self constraint linewidth]} then {
    $self lines changeLineWidth $width
  }
}