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

editor-canvas%: fix scroll refresh when scroll bars are hidden

Browse Source
This commit is contained in:
Matthew Flatt 2015-05-21 08:48:12 -06:00
parent 6fa420d947
commit 12612670f6
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gui-lib/mred/private/wxme/editor-canvas.rkt
View File

@ -946,20 +946,21 @@
(or (or
;; Set x ;; Set x
(and (x . > . -1) (and (x . > . -1)
(not fake-x-scroll?)
(positive? scroll-width) (positive? scroll-width)
(let ([x (min (->long (min x scroll-width)) 10000000)]) (let ([x (min (->long (min x scroll-width)) 10000000)])
(and (not (= x old-x)) (and (not (= x old-x))
(begin (set-scroll-pos 'horizontal x) (begin
(when (not fake-x-scroll?)
(set-scroll-pos 'horizontal x))
#t)))) #t))))
;; Set y ;; Set y
(and (y . > . -1) (and (y . > . -1)
(not fake-y-scroll?)
(positive? scroll-height) (positive? scroll-height)
(let ([y (min (->long (min y scroll-height)) 10000000)]) (let ([y (min (->long (min y scroll-height)) 10000000)])
(and (not (= y old-y)) (and (not (= y old-y))
(begin (begin
(set-scroll-pos 'vertical y) (when (not fake-y-scroll?)
(set-scroll-pos 'vertical y))
#t)))))) #t))))))
(set! noloop? savenoloop?) (set! noloop? savenoloop?)