round -> ceiling in paint-by-numbers

This commit is contained in:
Asumu Takikawa 2011-05-16 21:11:43 -04:00
parent 11fa781652
commit 47db06ac6f

View File

@ -671,8 +671,8 @@ paint by numbers.
(get-col-numbers))))))]
[define/public update-min-spacing
(lambda ()
(min-width (inexact->exact (round (+ row-label-width (* grid-x-size col-label-width)))))
(min-height (inexact->exact (round (+ col-label-height (* grid-y-size row-label-height))))))]
(min-width (inexact->exact (ceiling (+ row-label-width (* grid-x-size col-label-width)))))
(min-height (inexact->exact (ceiling (+ col-label-height (* grid-y-size row-label-height))))))]
(inherit min-width min-height)
(super-instantiate ())