Cross Reference: /ast/src/lib/libtk/library/demos/puzzle.tcl

Lines Matching refs:ypos

14     global xpos ypos
15     if {(($ypos($num) >= ($ypos(space) - .01))
16 	    && ($ypos($num) <= ($ypos(space) + .01))
21 	    && ($ypos($num) >= ($ypos(space) - .26))
22 	    && ($ypos($num) <= ($ypos(space) + .26)))} {
26 	set tmp $ypos(space)
27 	set ypos(space) $ypos($num)
28 	set ypos($num) $tmp
29 	place $w.frame.$num -relx $xpos($num) -rely $ypos($num)
62     set ypos($num) [expr ($i/4)*.25]
65     place $w.frame.$num -relx $xpos($num) -rely $ypos($num) \
69 set ypos(space) .75