Lines Matching refs:new
33 ## %P the potential new string value
137 set new [string range $cur 0 [expr $index-1]]$string[string range $cur $index end]
138 if {[catch {validate $w $string $new $index insert} err]} {
156 set new [string range $cur 0 [expr $first-1]][string range $cur $last end]
158 [expr $last-1]] $new $first delete} err]} {
185 ;proc validate {w str new index type} {
195 set cmd [substitute $w $data(-vcmd) $str $new $index $type]
217 # Otherwise, if it didn't accept the new string (returned TCL_BREAK)
224 $str $new $index $type]
247 set new [string range $cmd 0 [incr i -1]]
251 d { append new $type }
252 i { append new $index }
253 P { append new [list $newstr] }
254 s { append new [list [$data(basecmd) get]] }
255 S { append new [list $change] }
256 v { append new $data(-validate) }
257 W { append new [list $w] }
258 {} { append new %; return $new }
259 default { append new [list $c] }
263 if {$i < 0} { return $new$cmd }
264 append new [string range $cmd 0 [incr i -1]]