Posted to tcl by jdc at Thu Jul 05 08:55:50 GMT 2012view raw
- package require Tk
- pack [text .txt]
- proc callback {} {
- set idx [.txt index insert]
- set tags [.txt tag names $idx]
- if {"B" in $tags} {
- return -code break
- }
- }
- .txt insert end AAAAAAAAAA A BBBBBBBBBB B CCCCCCCCCC C
- bind .txt <KeyPress-h> callback