From 21c60bfa8b50d8f890affbaffe716029cedacfaa Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 14 Jun 2012 03:26:35 -0500 Subject: [PATCH] fix bug in find-scroll-step in the implementation of Parcheesi's rules overview window --- collects/games/parcheesi/rules.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/games/parcheesi/rules.rkt b/collects/games/parcheesi/rules.rkt index 7e0ba94dc4..ca0e7bcb04 100644 --- a/collects/games/parcheesi/rules.rkt +++ b/collects/games/parcheesi/rules.rkt @@ -242,7 +242,7 @@ (define board-snip% (class snip% (init-field board) - (define/override (find-scroll-step y) (inexact->exact (quotient y scroll-step-pixels))) + (define/override (find-scroll-step y) (inexact->exact (round (/ y scroll-step-pixels)))) (define/override (get-num-scroll-steps) (quotient board-size scroll-step-pixels)) (define/override (get-scroll-step-offset step) (* step scroll-step-pixels)) (define/override (get-extent dc x y w h descent space lspace rspace)