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

fixed bug with quotient

Browse Source 
svn: r1369

original commit: 5250e0ac575c624a6da7b4bbaf5cf7901662f34d
This commit is contained in:
Robby Findler 2005-11-22 13:47:34 +00:00
parent f6f25aa5e6
commit f6d489be72
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))