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

fix scroll-with-bottom-base and allow-scroll-to-last

Browse Source 
svn: r15495
This commit is contained in:
Matthew Flatt 2009-07-20 14:50:55 +00:00
parent 01893101a6
commit 757999e8e7
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/private/wxme/editor-canvas.ss
View File

@ -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)])