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

fixed bug with quotient

Browse Source 
svn: r1369
This commit is contained in:
Robby Findler 2005-11-22 13:47:34 +00:00
parent efca7c4c6f
commit 5250e0ac57
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/mrlib/cache-image-snip.ss
View File

@ -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))