From d46b5f6cf8140d8634d483bf205689dac37b5ea2 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 30 Sep 2004 16:11:38 +0000 Subject: [PATCH] . original commit: 41a1bb69e8f435ead76e392c001c6c768e325b59 --- collects/mrlib/cache-image-snip.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mrlib/cache-image-snip.ss b/collects/mrlib/cache-image-snip.ss index 3147e0c6..66f52b90 100644 --- a/collects/mrlib/cache-image-snip.ss +++ b/collects/mrlib/cache-image-snip.ss @@ -132,7 +132,7 @@ py)))]) (send f put str))) - (define/override (get-num-scroll-steps) (+ (quotient height 20) 1)) + (define/override (get-num-scroll-steps) (inexact->exact (+ (quotient height 20) 1))) (define/override (find-scroll-step y) (inexact->exact (floor (/ y 20)))) (define/override (get-scroll-step-offset offset) (* offset 20))