Posted to tcl by schelte at Mon Mar 11 19:09:50 GMT 2013view raw
- proc searchnext w {
- global Find opt
- reorder .f.sr.f
- $w tag remove hilite 1.0 end
- set options {}
- if {$opt(direction) ne "backward"} {
- lappend options -forward
- set start insert+1c
- } else {
- lappend options -backward
- set start insert
- }
- if {!$opt(matchcase)} {
- lappend options -nocase
- }
- set pos [$w search {*}$options -count n -- $Find $start]
- if {$pos ne ""} {
- $w mark set insert $pos
- $w see insert
- $w tag add hilite $pos $pos+${n}c
- }
- }