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

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

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