Width

Checks on floating point number; adjust width of corresponding line item on canvas.

obj configuremethod line -width w {
  if {[string is integer $w]} then {
    $self configure -width [double $w]
  } else {
    set tag line$self
    $self canvas itemconfigure $tag -width $w
  }
}