suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

svn: r14499

Browse Source 
original commit: 4883d8bb1d1373ab703614b4be500af5b69ae151
This commit is contained in:
Robby Findler 2009-04-13 18:01:18 +00:00
parent dfd13aa132
commit 3bd10ef644
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/frame.ss
View File

@ -2178,7 +2178,7 @@
(when found-pos (when found-pos
(unless (hash-ref ht found-txt #f) (unless (hash-ref ht found-txt #f)
(hash-set! ht found-txt #t) (hash-set! ht found-txt #t)
(send txt begin-edit-sequence)) (send found-txt begin-edit-sequence))
(let ([start (- found-pos (send find-edit last-position))]) (let ([start (- found-pos (send find-edit last-position))])
(send found-txt delete start found-pos) (send found-txt delete start found-pos)
(copy-over replace-edit 0 (send replace-edit last-position) found-txt start) (copy-over replace-edit 0 (send replace-edit last-position) found-txt start)