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

8
collects/framework/canvas.ss
View File

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