obj method line state args {
if {[llength $args] == 0} then {
$self canvas itemcget line$self -state
} else {
lassign $args state
if {$state eq "disabled"} then {
$self canvas itemconfigure line$self -stipple gray25 -state $state
} else {
$self canvas itemconfigure line$self -stipple {} -state $state
}
}
}
© Wolf-Dieter Busch | Home | Sitemap | Urheber | A-Z