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

fix bug introduced with 'display-end change

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

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

@ -3920,15 +3920,17 @@
(begin
(when (L . < . refresh-l)
(set! refresh-l L))
(when (or (eq? R 'display-end)
(R . > . refresh-r))
(set! refresh-r R))
(unless (eq? refresh-r 'display-end)
(when (or (eq? R 'display-end)
(R . > . refresh-r))
(set! refresh-r R)))
(when (T . < . refresh-t)
(set! refresh-t T))
(when (or (eq? B 'display-end)
(B . > . refresh-b))
(set! refresh-b B))))
(unless (eq? refresh-b 'display-end)
(when (or (eq? B 'display-end)
(B . > . refresh-b))
(set! refresh-b B)))))
(set! draw-cached-in-bitmap? #f)))
(def/override (needs-update [snip% snip]