;; Even more event binding: accessing the event parameters

(entry '.e1 :relief "sunken")
(pack .e1 :expand "yes" :fill "x")
(bind .e1 "<ButtonPress-1>" '(display "button down at %x,%y\n"))