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

..

Browse Source 
original commit: 8632213ed2d7eeb5aece25a8a6a0ae3ec69b91db
This commit is contained in:
Robby Findler 2003-07-29 12:21:19 +00:00
parent 0d0ff5d47c
commit af6ec3c4ba
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/private/text.ss
View File

@ -427,8 +427,8 @@
(send big-snip get-extent dc x y bwb bhb #f #f #f #f) (send big-snip get-extent dc x y bwb bhb #f #f #f #f)
(let* ([cw (send dc get-char-width)] (let* ([cw (send dc get-char-width)]
[ch (send dc get-char-height)] [ch (send dc get-char-height)]
[w (quotient (unbox bwb) cw)] [w (floor (/ (unbox bwb) cw))]
[h (quotient (unbox bhb) ch)]) [h (floor (/ (unbox bhb) ch))])
(set/f! wb w) (set/f! wb w)
(set/f! hb h) (set/f! hb h)
(set! width w) (set! width w)