From f6d489be721eb69e2b0b5e07481a58324d24bfa0 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 22 Nov 2005 13:47:34 +0000 Subject: [PATCH] fixed bug with quotient svn: r1369 original commit: 5250e0ac575c624a6da7b4bbaf5cf7901662f34d --- 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 7b294b10..e77eddb5 100644 --- a/collects/mrlib/cache-image-snip.ss +++ b/collects/mrlib/cache-image-snip.ss @@ -123,7 +123,7 @@ py)))]) (send f put str))) - (define/override (get-num-scroll-steps) (inexact->exact (+ (quotient height 20) 1))) + (define/override (get-num-scroll-steps) (inexact->exact (+ (floor (/ height 20)) 1))) (define/override (find-scroll-step y) (inexact->exact (floor (/ y 20)))) (define/override (get-scroll-step-offset offset) (* offset 20))