suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix bug in find-scroll-step in the implementation of Parcheesi's

Browse Source 
rules overview window
This commit is contained in:
Robby Findler 2012-06-14 03:26:35 -05:00
parent d0d83577c7
commit 21c60bfa8b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/games/parcheesi/rules.rkt
View File

@ -242,7 +242,7 @@
(define board-snip% (define board-snip%
(class snip% (class snip%
(init-field board) (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-num-scroll-steps) (quotient board-size scroll-step-pixels))
(define/override (get-scroll-step-offset step) (* step 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) (define/override (get-extent dc x y w h descent space lspace rspace)