round -> ceiling in paint-by-numbers
This commit is contained in:
parent
11fa781652
commit
47db06ac6f
|
@ -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 ())
|
||||
|
|
Loading…
Reference in New Issue
Block a user