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