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