Lines Matching refs:num
17 proc puzzleSwitch {w num} {
19 if {(($ypos($num) >= ($ypos(space) - .01))
20 && ($ypos($num) <= ($ypos(space) + .01))
21 && ($xpos($num) >= ($xpos(space) - .26))
22 && ($xpos($num) <= ($xpos(space) + .26)))
23 || (($xpos($num) >= ($xpos(space) - .01))
24 && ($xpos($num) <= ($xpos(space) + .01))
25 && ($ypos($num) >= ($ypos(space) - .26))
26 && ($ypos($num) <= ($ypos(space) + .26)))} {
28 set xpos(space) $xpos($num)
29 set xpos($num) $tmp
31 set ypos(space) $ypos($num)
32 set ypos($num) $tmp
33 place $w.frame.$num -relx $xpos($num) -rely $ypos($num)
75 set num [lindex $order $i]
76 set xpos($num) [expr {($i%4)*.25}]
77 set ypos($num) [expr {($i/4)*.25}]
78 button $w.frame.$num -relief raised -text $num -highlightthickness 0 \
79 -command "puzzleSwitch $w $num"
80 place $w.frame.$num -relx $xpos($num) -rely $ypos($num) \