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

fix bad uses of quotient in wxme

Browse Source 
svn: r15067

original commit: dcc088305be09be13c97845f315197c4e4920ae6
This commit is contained in:
Matthew Flatt 2009-06-03 18:48:13 +00:00
parent ba51e0ee0a
commit a88e51f58e
1 changed files with 3 additions and 3 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

@ -676,11 +676,11 @@
[(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)))
(quotient 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))))
(+ (quotient (+ localx (- fw iw)) hpixels-per-scroll) 1)] (+ (->long (/ (+ localx (- fw iw)) hpixels-per-scroll)) 1)]
[else cx]) [else cx])
0) 0)
cx)]) cx)])
@ -773,7 +773,7 @@
(if (modulo tw hpixels-per-scroll) (if (modulo tw hpixels-per-scroll)
(+ tw (- hpixels-per-scroll (modulo tw hpixels-per-scroll))) (+ tw (- hpixels-per-scroll (modulo tw hpixels-per-scroll)))
tw)]) tw)])
(values (quotient tw hpixels-per-scroll) (values (->long (/ tw hpixels-per-scroll))
given-h-scrolls-per-page))) given-h-scrolls-per-page)))
(values 0 1))]) (values 0 1))])