From 35e9fd96e5082dba20df7333cb803c2736b42c88 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 4 Jun 2006 07:39:22 +0000
Subject: [PATCH] fixed wheel-up not scrolling up when too few items above the
 first

svn: r3212

original commit: 6aa4f2965c23ba0fa799fe31db0b135146f6c521
---
 collects/mred/private/wxitem.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mred/private/wxitem.ss b/collects/mred/private/wxitem.ss
index aa1688d1..d5247dcc 100644
--- 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