Lines Matching refs:val
443 foreach {key val} $args {
446 set val [regexp -nocase $truth $val]
447 if {$val} {
454 -decoration { set val [regexp -nocase $truth $val] }
455 -padstack { set data(halfpstk) [expr {$val/2}] }
457 ## We set this special bool val because it saves some
459 set data(hasnodelook) [string compare $val {}]
468 set data(-root) $val
477 -fill $val
481 if {![regexp {^(normal|disabled)$} $val junk val]} {
482 return -code error "bad state value \"$val\":\
488 set val [regexp -nocase $truth $val]
489 if {$val == $data($key)} continue
493 set data($key) $val
496 set data(:$val,showkids) 0
497 ExpandNodeN $w $val $data(-expand)