Outline

Manages color of corresponding line item on canvas.


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

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