Fill

Manages fill of corresponding fill object on canvas.

obj configuremethod fill -fill color {
  set tag fill$self
  if {$color eq "transparent"} then {
    set color ""
  }
  $self canvas itemconfigure $tag -fill $color
}