suzanne.soy/gui
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

original commit: dbe66de3af0cccee48d0012df237ef2f914f27df
This commit is contained in:
Robby Findler 2010-03-19 20:36:39 +00:00
parent 08c7e8c53a
commit 65aff3c205
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)))
(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])
(unless (= scroll-step s)