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

fix for a bug discovered via random testing

Browse Source 
svn: r18587
This commit is contained in:
Robby Findler 2010-03-19 20:36:39 +00:00
parent ff10493a0e
commit dbe66de3af
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mred/private/wxme/pasteboard.ss
View File

@ -1628,7 +1628,8 @@
(->long (/ (- (+ total-height scroll-step) 1) scroll-step))) (->long (/ (- (+ total-height scroll-step) 1) scroll-step)))
(def/override (find-scroll-line [real? y]) (def/override (find-scroll-line [real? y])
(->long (/ y scroll-step))) (let ([y (max 0 y)])
(->long (/ y scroll-step))))
(def/public (set-scroll-step [real? s]) (def/public (set-scroll-step [real? s])
(unless (= scroll-step s) (unless (= scroll-step s)