obj method group brighten {what factor} { switch -exact -- $what { outline { if {![$self constraint linecolor]} then { $self elements brighten $what $factor } } fill { if {![$self constraint fillcolor]} then { $self elements brighten $what $factor } } } }
© Wolf-Dieter Busch | Home | Sitemap | Urheber | A-Z