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

fix some right/top mixups

Browse Source 
closes PR 13312

original commit: df5ee4c7bac01f87d3cfd75846cda4152bf0da5b
This commit is contained in:
Robby Findler 2012-11-26 12:22:56 -06:00
parent 528ac68d11
commit 28aa5e9f26
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/framework/private/text.rkt
View File

@ -147,16 +147,16 @@
[(equal? new-rectangles old-rectangles) [(equal? new-rectangles old-rectangles)
(loop left top right bottom)] (loop left top right bottom)]
[else [else
(define-values (new-left new-right new-top new-bottom) (define-values (new-left new-top new-right new-bottom)
(for/fold ([left left] [top top] [right right] [bottom bottom]) (for/fold ([left left] [top top] [right right] [bottom bottom])
([r (in-list new-rectangles)]) ([r (in-list new-rectangles)])
(join-rectangles left top right bottom r))) (join-rectangles left top right bottom r)))
(define-values (both-left both-right both-top both-bottom) (define-values (both-left both-top both-right both-bottom)
(for/fold ([left new-left] [top new-top] [right new-right] [bottom new-bottom]) (for/fold ([left new-left] [top new-top] [right new-right] [bottom new-bottom])
([r (in-list old-rectangles)]) ([r (in-list old-rectangles)])
(join-rectangles left top right bottom r))) (join-rectangles left top right bottom r)))
(set-range-rectangles! a-range new-rectangles) (set-range-rectangles! a-range new-rectangles)
(loop both-left both-right both-top both-bottom)])] (loop both-left both-top both-right both-bottom)])]
[else [else
;; when old-rectangles is #f, that means that this ;; when old-rectangles is #f, that means that this
;; range has been removed from the ranges-deq, so ;; range has been removed from the ranges-deq, so