Posted to tcl by jdc at Thu Jul 05 08:55:50 GMT 2012view raw

  1. package require Tk
  2.  
  3. pack [text .txt]
  4.  
  5. proc callback {} {
  6. set idx [.txt index insert]
  7. set tags [.txt tag names $idx]
  8. if {"B" in $tags} {
  9. return -code break
  10. }
  11. }
  12.  
  13. .txt insert end AAAAAAAAAA A BBBBBBBBBB B CCCCCCCCCC C
  14. bind .txt <KeyPress-h> callback