state

$fill state how: itemconfigures according canvas elements by -state

obj method fill state args {
  if {[llength $args] == 0} then {
    $self canvas itemcget fill$self -state
  } else {
    lassign $args state
    $self lines state $state
    # $self canvas itemconfigure fill$self -state $state
    if {$state eq "disabled"} then {
      $self canvas itemconfigure fill$self -stipple gray25 -state $state
    } else {
      $self canvas itemconfigure fill$self -stipple {} -state $state
    }
  }
}