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)
(let* ([cw (send dc get-char-width)]
[ch (send dc get-char-height)]
[w (quotient (unbox bwb) cw)]
[h (quotient (unbox bhb) ch)])
[w (floor (/ (unbox bwb) cw))]
[h (floor (/ (unbox bhb) ch))])
(set/f! wb w)
(set/f! hb h)
(set! width w)