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

svn: r3212 original commit: 6aa4f2965c23ba0fa799fe31db0b135146f6c521
2006-06-04 07:39:22 +00:00 · 2006-06-04 07:39:22 +00:00 · 35e9fd96e5
commit 35e9fd96e5
parent 3cc26efd71
1 changed files with 2 additions and 1 deletions
--- a/collects/mred/private/wxitem.ss
+++ b/collects/mred/private/wxitem.ss
@ -324,7 +324,8 @@
 				  (<= 1 list-box-wheel-step 100))
 		       (set! list-box-wheel-step 3)))
 		   (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
 	 [handles-key-code (lambda (x alpha? meta?)
 			     (case x