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

guard a call to invalidate-bitmap-cache in

Browse Source 
check syntax so it only happens when something
would draw differently
This commit is contained in:
Robby Findler 2013-01-30 11:54:05 -06:00
parent 5a55f64444
commit 4c4161ce2b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/drracket/private/syncheck/gui.rkt
View File

@ -1084,6 +1084,9 @@ If the namespace does not, they are colored the unbound color.
(or text-changed? eles-changed? tooltip-changed?))
(define/private (update-drawn-arrows)
(define latent-stuff (let ([im (hash-ref arrow-records latent-text #f)]) (if im (interval-map-ref im latent-pos '()) '())))
(define cursor-stuff (let ([im (hash-ref arrow-records cursor-text #f)]) (if im (interval-map-ref im cursor-pos '()) '())))
(set! cursor-pos latent-pos)
(set! cursor-text latent-text)
(set! cursor-eles latent-eles)
@ -1091,8 +1094,8 @@ If the namespace does not, they are colored the unbound color.
(update-tooltip-frame)
(update-docs-background cursor-eles)
(invalidate-bitmap-cache))
(unless (equal? latent-stuff cursor-stuff)
(invalidate-bitmap-cache)))
(define mouse-admin #f) ; editor admin for the last mouse move
(define mouse-x #f) ; last known mouse position