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