From dbe66de3af0cccee48d0012df237ef2f914f27df Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 19 Mar 2010 20:36:39 +0000 Subject: [PATCH] fix for a bug discovered via random testing svn: r18587 --- collects/mred/private/wxme/pasteboard.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/mred/private/wxme/pasteboard.ss b/collects/mred/private/wxme/pasteboard.ss index 511c6ba448..68cd415b95 100644 --- a/collects/mred/private/wxme/pasteboard.ss +++ b/collects/mred/private/wxme/pasteboard.ss @@ -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)