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

...

Browse Source 
original commit: 0b70f95730e2205588029a12db68dbf959787411
This commit is contained in:
Robby Findler 2000-06-16 20:33:33 +00:00
parent f073367576
commit 78f2e9985e
1 changed files with 40 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/text.ss
View File

@ -69,6 +69,7 @@
(loop this-left (loop this-left
this-right this-right
(cdr canvases))))]))]) (cdr canvases))))]))])
(when (and min-left max-right)
(let loop ([left #f] (let loop ([left #f]
[top #f] [top #f]
[right #f] [right #f]
@ -107,7 +108,7 @@
this-top this-top
this-right this-right
this-bottom this-bottom
(cdr rectangles))))]))))] (cdr rectangles))))])))))]
[recompute-range-rectangles [recompute-range-rectangles
(lambda () (lambda ()