Outline

Delegates line width to contained lines

obj configuremethod fill -outline color {
  if {$color ne ""} then {
    $self lines configure -outline $color
    if {$color eq "transparent"} then {
      set color ""
    }
    $self configure -outline ""
  }
}