[Richard Suchenwirth] 2006-11-28 - Here is example code for searching substrings in a [text] widget. When an instance is found, it is highlighted with the ''hilite'' tag. At end of the text content, the search wraps around. The global variable ''status'' reports the position of a found substring.

 proc find {w what} {
    foreach {from to} [$w tag ranges hilite] {
	$w tag remove hilite $from $to
    }
    set pos [$w search -count n -- $what insert+2c]
    if {$pos eq ""} {
	set ::status "not found: $what"
    } else {
	set ::status "found at $pos: $what"
	$w mark set insert $pos
	$w see $pos
	$w tag add hilite $pos $pos+${n}c
    }
 }
# Demo with an entry for the search term:
 pack [entry .e -textvariable Find] -fill x
 bind .e <Return> {find .t $Find}

 pack [text .t -wrap word]
 .t tag configure hilite -background orange

 pack [label .l -textvariable status] -anchor w

----
[Category Example]