obj method fill hide {{yesNo yes} {noPrint no}} {
set tag fill$self
if {$yesNo} then {
if {$noPrint} then {
$self canvas itemconfigure $tag -state hidden
$self lines hide yes yes
} else {
if {[$self constraint noprint]} then {
$self canvas itemconfigure $tag -state hidden
$self lines hide yes yes
} else {
$self canvas itemconfigure $tag -state normal
$self lines hide no
}
}
} else {
$self canvas itemconfigure $tag -state normal
$self lines hide no
}
}
© Wolf-Dieter Busch | Home | Sitemap | Urheber | A-Z