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
}

© Wolf-Dieter Busch | Home | Sitemap | Urheber | A-Z