Simple search and replace
Richard Suchenwirth 2006-03-17 - Here's a search (and replace) dialog implemented in a pretty minimal way, yet it feels usable to me. (Called with 0 as second argument, it skips the replace elements.)
You can tie it to a text widget (see demo code below), and, well, just try it for yourself... The "exported API" is the searchrep proc which you might bind to menu items or a key combination:
proc searchrep {t {replace 1}} {
set w .sr
if ![winfo exists $w] {
toplevel $w
wm title $w "Search"
grid [label $w.1 -text Find:] [entry $w.f -textvar Find] \
[button $w.bn -text Next \
-command [list searchrep'next $t]] -sticky ew
bind $w.f <Return> [list $w.bn invoke]
if $replace {
grid [label $w.2 -text Replace:] [entry $w.r -textvar Replace] \
[button $w.br -text Replace \
-command [list searchrep'rep1 $t]] -sticky ew
bind $w.r <Return> [list $w.br invoke]
grid x x [button $w.ba -text "Replace all" \
-command [list searchrep'all $t]] -sticky ew
}
grid x [checkbutton $w.i -text "Ignore case" -variable IgnoreCase] \
[button $w.c -text Cancel -command "destroy $w"] -sticky ew
grid $w.i -sticky w
grid columnconfigure $w 1 -weight 1
$t tag config hilite -background yellow
} else {raise $w}
}
# Find the next instance
proc searchrep'next w {
foreach {from to} [$w tag ranges hilite] {
$w tag remove hilite $from $to
}
set cmd [list $w search -count n -- $::Find insert+2c]
if $::IgnoreCase {set cmd [linsert $cmd 2 -nocase]}
set pos [eval $cmd]
if {$pos ne ""} {
$w mark set insert $pos
$w see insert
$w tag add hilite $pos $pos+${n}c
}
}
# Replace the current instance, and find the next
proc searchrep'rep1 w {
if {[$w tag ranges hilite] ne ""} {
$w delete insert insert+[string length $::Find]c
$w insert insert $::Replace
searchrep'next $w
return 1
} else {return 0}
}
# Replace all
proc searchrep'all w {
set go 1
while {$go} {set go [searchrep'rep1 $w]}
}
#Test and demo:
package require Tk
pack [text .t]
.t insert end "hello world, this is some text to test on"
searchrep .t Here's how to plug this functionality into e: a tiny editor plugin for eTcl:
m+ $m Edit Search {searchrep .t.t 0}
m+ $m Edit Replace {searchrep .t.t}For better looks, I changed the -sticky settings to "news" there (buttons come very low else). A deeper problem is that the dialog comes up at top left, and possibly covers the "hilited" search term. Other than reparenting it into a non-toplevel (like Pocket Word does), I have no good solution for that...
2006-03-18 HE Perfectly! I need an search dialog and the wiki has it just in time :-)
See also Searching in a text widget, Simple Search and Replace commented