7 lines
217 B
Plaintext
7 lines
217 B
Plaintext
|
;; 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)))
|