changeLineWidth

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

obj method line changeLineWidth width {
  if {![$self constraint linewidth]} then {
    $self configure -width $width
  }
}