;; Even more event binding: accessing the event parameters
(entry '.e1 :relief "sunken")
(pack .e1 :expand #t :fill "x")
(bind .e1 "<ButtonPress-1>" (lambda (x y)
(format #t "button down at ~a,~a\n" x y)))