Lines Matching refs:id
62 set id [$canvas find withtag current]
64 set id [expr $id-1]
66 set oldFill [lindex [$canvas itemconfig $id -fill] 4]
68 $canvas itemconfigure $id -fill SeaGreen1
70 $canvas itemconfigure $id -fill black
71 $canvas itemconfigure [expr $id+1] -fill white
77 set id [$canvas find withtag current]
79 set id [expr $id-1]
81 $canvas itemconfigure $id -fill $oldFill
82 $canvas itemconfigure [expr $id+1] -fill black
87 set id [$canvas find withtag current]
89 set id [expr $id+1]
91 puts stdout "You buttoned at [lindex [$canvas itemconf $id -text] 4]"