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

...

Browse Source 
original commit: 71e485ad42014a0d110aca8475a3f97a8d3d5b09
This commit is contained in:
Robby Findler 2000-06-09 20:25:56 +00:00
parent adbf49ffb6
commit 9d395fc085
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/framework/canvas.ss
View File

@ -91,15 +91,15 @@
(if width?
(let ([snip-width (- (unbox width)
(unbox left-edge-box)
(unbox leftm)
(unbox rightm)
(let ([snip-width (max 0 (- (unbox width)
(unbox left-edge-box)
(unbox leftm)
(unbox rightm)
;; this two is the space that
;; the caret needs at the right of
;; a buffer.
2)])
2))])
(send* s
(set-min-width snip-width)
(set-max-width snip-width))
@ -108,10 +108,10 @@
(if (send snip-media auto-wrap)
snip-width
0))))
(let ([snip-height (- (unbox height)
(unbox top-edge-box)
(unbox topm)
(unbox bottomm))])
(let ([snip-height (max 0 (- (unbox height)
(unbox top-edge-box)
(unbox topm)
(unbox bottomm)))])
(send* s
(set-min-height snip-height)
(set-max-height snip-height)))))))))))])