changeFillColor

$fill changeFillColor color
changes width if not constraint by fillcolor

obj method fill changeFillColor color {
  if {$color ne "" && ![$self constraint fillcolor]} then {
    $self configure -fill $color
  }
}

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