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

fixed wheel-up not scrolling up when too few items above the first

Browse Source 
svn: r3212

original commit: 6aa4f2965c23ba0fa799fe31db0b135146f6c521
This commit is contained in:
Eli Barzilay 2006-06-04 07:39:22 +00:00
parent 3cc26efd71
commit 35e9fd96e5
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/wxitem.ss
View File

@ -324,7 +324,8 @@
(<= 1 list-box-wheel-step 100)) (<= 1 list-box-wheel-step 100))
(set! list-box-wheel-step 3))) (set! list-box-wheel-step 3)))
(let ([top (get-first-item)]) (let ([top (get-first-item)])
(set-first-visible-item (+ top (* list-box-wheel-step dir)))))]) (set-first-visible-item
(max 0 (+ top (* list-box-wheel-step dir))))))])
(override (override
[handles-key-code (lambda (x alpha? meta?) [handles-key-code (lambda (x alpha? meta?)
(case x (case x