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

fix bug introduced with 'display-end change

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-20 12:29:11 -06:00
parent 55d3647965
commit f67bb10c19
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/mred/private/wxme/text.rkt
View File

@ -3920,14 +3920,16 @@
(begin (begin
(when (L . < . refresh-l) (when (L . < . refresh-l)
(set! refresh-l L)) (set! refresh-l L))
(when (or (eq? R 'display-end) (unless (eq? refresh-r 'display-end)
(R . > . refresh-r)) (when (or (eq? R 'display-end)
(set! refresh-r R)) (R . > . refresh-r))
(set! refresh-r R)))
(when (T . < . refresh-t) (when (T . < . refresh-t)
(set! refresh-t T)) (set! refresh-t T))
(when (or (eq? B 'display-end) (unless (eq? refresh-b 'display-end)
(B . > . refresh-b)) (when (or (eq? B 'display-end)
(set! refresh-b B)))) (B . > . refresh-b))
(set! refresh-b B)))))
(set! draw-cached-in-bitmap? #f))) (set! draw-cached-in-bitmap? #f)))