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 / text5.stk < prev    next >
Encoding:
Text File  |  1995-12-13  |  598 b   |  20 lines
  1. ;;;  A basic text widget, with tag bindings
  2.  
  3. (text '.text :yscrollcommand (lambda l (apply .scroll 'set l)) :wrap "word")
  4. (scrollbar '.scroll :relief "flat" :command (lambda l (apply l .text 'yview l)))
  5.  
  6. (pack .scroll :side "right" :fill "y")
  7. (pack .text :expand #t :fill "both")
  8.  
  9.  
  10. (.text 'insert 'current 
  11. "This is a text widget, with some tagged text:\n\n\n\n
  12. Press me!!!")
  13.  
  14. (.text 'tag 'configure 'footag :relief "raised" :borderwidth 3 :background "bisque")
  15. (.text 'tag 'add 'footag "end-1l linestart" "end-1c")
  16.  
  17. (.text 'tag 'bind 'footag "<ButtonPress-1>" (lambda () (display "Gotcha!\n")))
  18.  
  19.  
  20.