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