stk/Contrib/STk-wtour/lessons/bind1.stk

10 lines
244 B
Plaintext
Raw Normal View History

1996-09-27 06:29:02 -04:00
;; Event binding
(entry '.e1 :relief "sunken")
(pack .e1 :expand #t :fill "x")
(bind .e1 "<Tab>" (lambda ()
(display "You pressed Tab!\n")))
(bind .e1 "<ButtonPress-2>" (lambda ()
(display "You pressed Button 2!\n")))