8 lines
195 B
Plaintext
8 lines
195 B
Plaintext
|
;; More event binding
|
||
|
|
|
||
|
|
(entry '.e1 :relief "sunken")
|
||
|
|
(pack .e1 :expand #t :fill "x")
|
||
|
|
|
||
|
|
(bind .e1 "<Enter>" (lambda () (display "ENTERED\n")))
|
||
|
|
(bind .e1 "<Leave>" (lambda () (display "EXITED\n")))
|