#!/usr/bin/env wish
canvas .c -width 200 -height 200 
label .coord -text "Move the mouse" -relief raised
pack .c .coord -fill x

bind . <Key-q> exit
bind .c <Motion> ".coord configure -text \"(%x %y)\""