From 757999e8e7ee7a94192dc4e16f9d23e3b3e51e58 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 20 Jul 2009 14:50:55 +0000 Subject: [PATCH] fix scroll-with-bottom-base and allow-scroll-to-last svn: r15495 --- collects/mred/private/wxme/editor-canvas.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/wxme/editor-canvas.ss b/collects/mred/private/wxme/editor-canvas.ss index 73ceda5ee0..51e862a49f 100644 --- a/collects/mred/private/wxme/editor-canvas.ss +++ b/collects/mred/private/wxme/editor-canvas.ss @@ -732,7 +732,7 @@ [total-height 0.0]) (send med get-extent total-width total-height) - (let-values ([(vnum-scrolls scroll-offset) + (let-values ([(vnum-scrolls -scroll-offset) (if (or (zero? h) (and (not scroll-to-last?) (h . >= . total-height))) @@ -744,7 +744,7 @@ (values vnum-scrolls 1) (let ([start (- (send med find-scroll-line (+ h 1)) 1)]) (values (- vnum-scrolls start) - (+ scroll-offset start))))) + (+ 1 start))))) (let ([top (max 0 (- (->long (- total-height (if scroll-to-last? @@ -758,6 +758,8 @@ vnum-scrolls) 0)))))]) + (set! scroll-offset -scroll-offset) + (let-values ([(num-scrolls vspp) (if (positive? vnum-scrolls) (let ([num-lines (- (send med num-scroll-lines) 1)])