wider

$line wider factor: changes width by factor if not constraint

obj method line wider factor {
  if {![$self constraint linewidth]} then {
    $self configure -width [* $factor [$self cget -width]]
  }
}