Searched refs:screenbla (Results 1 - 1 of 1) sorted by relevance

/ast/src/lib/libtk/library/demos/
H A Dixset47 global screenbla ; set screenbla "blank"
78 set screenbla [expr "{$bla} == {yes} ? {blank} : {noblank}"]
96 # puts stdout [format "Screen BLANCK = %s\n" $screenbla]
108 global mouseacc mousethr screenbla screentim screencyc
132 s $screenbla
142 global mouseacc mousethr screenbla screentim screencyc
158 .screen.val.rb.blank [expr "{$screenbla}=={blank} ? {select} : {deselect}"]
159 .screen.val.rb.pat [expr "{$screenbla}!={blank} ? {select} : {deselect}"]
261 -value "blank" -variable screenbla
[all...]

Completed in 93 milliseconds