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

.

Browse Source 
original commit: 41a1bb69e8f435ead76e392c001c6c768e325b59
This commit is contained in:
Robby Findler 2004-09-30 16:11:38 +00:00
parent b689374cca
commit d46b5f6cf8
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

@ -132,7 +132,7 @@
py)))])
(send f put str)))
(define/override (get-num-scroll-steps) (+ (quotient height 20) 1))
(define/override (get-num-scroll-steps) (inexact->exact (+ (quotient height 20) 1)))
(define/override (find-scroll-step y) (inexact->exact (floor (/ y 20))))
(define/override (get-scroll-step-offset offset) (* offset 20))