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

adjust the code that maintains the blue "where am I" background

Browse Source 
coloring in the contour window to make only a single call to
invalidate-bitmap-cache

It was making two before, which could have pretty similar regions,
leading to two repaints instead of just one. When pushing the down
arrow near the bottom of the visible regions of the definitions text
was causing those two calls to take about 30 milliseconds and after
this change the one call seems to be about half that (but there is
lots of variance so I'm only sure that it helped some, not how much)
This commit is contained in:
Robby Findler 2012-11-16 09:50:54 -06:00
parent 052ee14afc
commit 6fc70a04d8
1 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
collects/framework/private/frame.rkt
View File

@ -1605,12 +1605,12 @@
(define delegatee-text%
(class* text:basic% (delegatee-text<%>)
(inherit get-admin)
(define start-para #f)
(define end-para #f)
(define view-x-b (box 0))
(define view-width-b (box 0))
(inherit paragraph-start-position paragraph-end-position
(inherit get-admin
paragraph-start-position paragraph-end-position
position-location invalidate-bitmap-cache scroll-to-position
get-visible-position-range position-paragraph
last-position)
@ -1647,15 +1647,32 @@
[(v-end-para . <= . end-para)
(scroll-to-position (paragraph-end-position end-para))]
[else (void)]))))
(define the-l #f)
(define the-t #f)
(define the-r #f)
(define the-b #f)
(when (and old-start-para old-end-para)
(let-values ([(x y w h) (get-rectangle old-start-para old-end-para)])
(when x
(invalidate-bitmap-cache x y w h))))
(set! the-l x)
(set! the-t y)
(set! the-r (+ x w))
(set! the-b (+ y h)))))
(when (and start-para end-para)
(let-values ([(x y w h) (get-rectangle start-para end-para)])
(when x
(invalidate-bitmap-cache x y w h)))))))
(cond
[(and x the-l)
(set! the-l (min x the-l))
(set! the-t (min y the-t))
(set! the-r (max the-r (+ x w)))
(set! the-b (max the-b (+ y h)))]
[x
(set! the-l x)
(set! the-t y)
(set! the-r (+ x w))
(set! the-b (+ y h))])))
(when the-l
(invalidate-bitmap-cache the-l the-t (- the-r the-l) (- the-b the-t))))))
(define/override (on-paint before? dc left top right bottom dx dy draw-caret)
(when (and before?