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