home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Contrib / STk-wtour / lessons / bind1.stk next >
Encoding:
Text File  |  1995-12-12  |  244 b   |  10 lines
  1. ;; Event binding
  2.  
  3. (entry '.e1 :relief "sunken")
  4. (pack .e1 :expand #t :fill "x")
  5.  
  6. (bind .e1 "<Tab>"         (lambda () 
  7.                   (display "You pressed Tab!\n")))
  8. (bind .e1 "<ButtonPress-2>" (lambda ()
  9.                   (display "You pressed Button 2!\n")))
  10.