From aa992e50632f15453c30e18653832639f1d9e840 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 12 Sep 2016 19:14:05 -0400 Subject: [PATCH] Use swedish rounding --- racket/syndicate-ide/wm.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/racket/syndicate-ide/wm.rkt b/racket/syndicate-ide/wm.rkt index daeae23..e6bc838 100644 --- a/racket/syndicate-ide/wm.rkt +++ b/racket/syndicate-ide/wm.rkt @@ -276,6 +276,9 @@ [_ (sizing-ideal s)])) sizings)))) +(define (swedish-round x) + (floor (+ x 1/2))) + (define (compute-concrete-adjacent-layout vertical? items candidates top left width height) (define actual-sizes (if vertical? @@ -285,8 +288,8 @@ (for/fold [(pos (if vertical? top left)) (entries-rev '())] [(entry candidates) (item items) (actual-size actual-sizes)] (define npos (+ pos actual-size)) - (define rpos (round pos)) - (define size (- (round npos) rpos)) + (define rpos (swedish-round pos)) + (define size (- (swedish-round npos) rpos)) (values npos (cons (if vertical? (tbox-layout item (layout-option-info entry) rpos left width size)