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

fixed the extrememly-slow-pasting bug (that is only visible on slow machines, apparently)

Browse Source 
svn: r15265

original commit: ee8cf97c6688ce6d156211a168f3936918b0d386
This commit is contained in:
Robby Findler 2009-06-25 14:43:24 +00:00
parent 97612d17df
commit afb87b48bd
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/framework/private/text.ss
View File

@ -877,18 +877,19 @@ WARNING: printf is rebound in the body of the unit to always
(split-snip (+ start len))
(let loop ([snip (find-snip start 'after-or-none)])
(when snip
(let ([next (send snip next)])
(when (is-a? snip string-snip%)
(let* ([old (send snip get-text 0 (send snip get-count))]
[new (string-normalize old)])
(unless (equal? new old)
(when ask?
(set! ask? #f)
(unless (ask-normalize?) (abort)))
(let ([snip-pos (get-snip-position snip)])
(delete snip-pos (+ snip-pos (string-length old)))
(insert new snip-pos snip-pos #f)))))
(loop next)))))
(let ([pos (get-snip-position snip)])
(when (< pos (+ start len))
(when (is-a? snip string-snip%)
(let* ([old (send snip get-text 0 (send snip get-count))]
[new (string-normalize old)])
(unless (equal? new old)
(when ask?
(set! ask? #f)
(unless (ask-normalize?) (abort)))
(let ([snip-pos (get-snip-position snip)])
(delete snip-pos (+ snip-pos (string-length old)))
(insert new snip-pos snip-pos #f)))))
(loop (send snip next)))))))
(set! rewriting? #f)))
(end-edit-sequence)
(inner (void) after-insert start len))