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

fix boundary case for responding to horizontal scroll request

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

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

@ -732,11 +732,11 @@
(if (positive? hpixels-per-scroll) (if (positive? hpixels-per-scroll)
(cond (cond
[(or (and (eq? bias 'start) (fw . > . iw)) [(or (and (eq? bias 'start) (fw . > . iw))
(and (fw . < . iw) (localx . < . x)) (and (fw . <= . iw) (localx . < . x))
(and (fw . > . iw) (not (eq? bias 'end)) (localx . < . x))) (and (fw . > . iw) (not (eq? bias 'end)) (localx . < . x)))
(->long (/ localx hpixels-per-scroll))] (->long (/ localx hpixels-per-scroll))]
[(or (and (eq? bias 'end) (fw . > . iw)) [(or (and (eq? bias 'end) (fw . > . iw))
(and (fw . < . iw) ((+ x iw) . < . (+ localx fw))) (and (fw . <= . iw) ((+ x iw) . < . (+ localx fw)))
(and (fw . > . iw) (not (eq? bias 'start)) ((+ localx fw) . > . (+ x iw)))) (and (fw . > . iw) (not (eq? bias 'start)) ((+ localx fw) . > . (+ x iw))))
(+ (->long (/ (+ localx (- fw iw)) hpixels-per-scroll)) 1)] (+ (->long (/ (+ localx (- fw iw)) hpixels-per-scroll)) 1)]
[else cx]) [else cx])