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

adjust the wrap-bitmap-width field to always have an inexact number

Browse Source
This commit is contained in:
Robby Findler 2014-10-28 16:19:50 -05:00
parent 5052e82518
commit 00a7eaca2c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt
View File

@ -4945,8 +4945,8 @@
(set! auto-wrap-bitmap bm) (set! auto-wrap-bitmap bm)
(if auto-wrap-bitmap (if auto-wrap-bitmap
(set! wrap-bitmap-width (send auto-wrap-bitmap get-width)) (set! wrap-bitmap-width (exact->inexact (send auto-wrap-bitmap get-width)))
(set! wrap-bitmap-width 0)) (set! wrap-bitmap-width 0.0))
(when (max-width . > . 0) (when (max-width . > . 0)
(set-max-width (+ max-width old-width))) (set-max-width (+ max-width old-width)))