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

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