state

$line state how
changes state of item on canvas to disabled or normal

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