split

$line splt
does nothing, returns object itself. Syntactical purposes.

obj method line hide {{bool yes} {noPrint no}} {
  set tag line$self
  if {$bool} then {
    if {$noPrint} then {
      $self canvas itemconfigure $tag -state hidden
    } else {
      if {[$self constraint noprint]} then {
        $self canvas itemconfigure $tag -state hidden
      } else {
        $self canvas itemconfigure $tag -state normal
      }
    } 
  } else {
    $self canvas itemconfigure $tag -state normal
  }
}

© Wolf-Dieter Busch | Home | Sitemap | Urheber | A-Z