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

fix misspelling tracker

Browse Source 
please include on the release branch

original commit: 83a76027d558a2c72996028dd846310b57f38ac1
This commit is contained in:
Robby Findler 2014-07-09 22:31:20 -05:00
parent ade83b6df5
commit 3d82b4a974
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
pkgs/gui-pkgs/gui-lib/framework/private/color.rkt
View File

@ -421,8 +421,8 @@ added get-regions
(let loop ([spellos (query-aspell str current-dict)]
[lp 0])
(cond
[(null? spellos)
(add-coloring color (+ pos lp) (+ pos (string-length str)))]
[(null? spellos)
(add-coloring/spell #f color (+ pos lp) (+ pos (string-length str)))]
[else
(define err (car spellos))
(define err-start (list-ref err 0))
@ -440,7 +440,7 @@ added get-regions
(loop (cdr strs)
(+ pos (string-length str) 1))))]
[else
(add-coloring/spell color sp ep)])]
(add-coloring/spell #f color sp ep)])]
[else
(add-coloring/spell #f color sp ep)]))
@ -458,7 +458,7 @@ added get-regions
(define/public (get-spell-suggestions position)
(and misspelled-regions (interval-map-ref misspelled-regions position #f)))
(define/private (add-coloring color sp ep)
(define/private (add-coloring color sp ep)
(change-style color sp ep #f))
(define/private (show-tree t)
@ -1222,11 +1222,19 @@ added get-regions
(define/augment (after-insert edit-start-pos change-length)
;;(printf "(after-insert ~a ~a)\n" edit-start-pos change-length)
(when misspelled-regions
(interval-map-expand! misspelled-regions
edit-start-pos
(+ edit-start-pos change-length)))
(do-insert/delete edit-start-pos change-length)
(inner (void) after-insert edit-start-pos change-length))
(define/augment (after-delete edit-start-pos change-length)
;;(printf "(after-delete ~a ~a)\n" edit-start-pos change-length)
(when misspelled-regions
(time (interval-map-contract! misspelled-regions
edit-start-pos
(+ edit-start-pos change-length))))
(do-insert/delete edit-start-pos (- change-length))
(inner (void) after-delete edit-start-pos change-length))