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

flashing quotes and bars doesn't move the screen anymore

Browse Source 
original commit: 6cfda7d2097fdc0f2dfdb1a14b2c25e71b639c11
This commit is contained in:
Robby Findler 2002-01-19 02:33:36 +00:00
parent 19f926b8f7
commit 81ddc29aca
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/framework/private/scheme.ss
View File

@ -581,6 +581,7 @@
remove-parens-forward) remove-parens-forward)
(define (get-limit pos) 0) (define (get-limit pos) 0)
(inherit get-visible-position-range)
(define (balance-quotes key) (define (balance-quotes key)
(let* ([char (send key get-key-code)]) ;; must be a character because of the mapping setup (let* ([char (send key get-key-code)]) ;; must be a character because of the mapping setup
;; this function is only bound to ascii-returning keys ;; this function is only bound to ascii-returning keys
@ -590,7 +591,12 @@
[match (scheme-paren:backward-match [match (scheme-paren:backward-match
this start-pos limit backward-cache)]) this start-pos limit backward-cache)])
(when match (when match
(flash-on match (add1 match)))))) (let ([start-b (box 0)]
[end-b (box 0)]
[to-flash-point (add1 match)])
(get-visible-position-range start-b end-b #f)
(when (<= (unbox start-b) to-flash-point (unbox end-b))
(flash-on match (add1 match))))))))
(define (balance-parens key-event) (define (balance-parens key-event)
(letrec ([char (send key-event get-key-code)] ;; must be a character. See above. (letrec ([char (send key-event get-key-code)] ;; must be a character. See above.