;; More event binding

(entry '.e1 :relief "sunken")
(pack .e1 :expand "yes" :fill "x")

(bind .e1 "<Enter>" '(display "ENTERED\n"))
(bind .e1 "<Leave>" '(display "EXITED\n"))