From 2e8f7716616a632d221ac1e19e352fc9594be0f6 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 28 Dec 2010 05:44:34 -0700 Subject: [PATCH] adjust password dots again --- collects/mred/private/wxtextfield.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/wxtextfield.rkt b/collects/mred/private/wxtextfield.rkt index bd0665afb5..5dac9e1954 100644 --- a/collects/mred/private/wxtextfield.rkt +++ b/collects/mred/private/wxtextfield.rkt @@ -31,7 +31,7 @@ (super-new) (define delta 3) - (define hdelta 1) + (define hdelta 2) (define (get-size) (max 4 (send (send (get-style) get-font) get-point-size))) @@ -55,7 +55,7 @@ (send dc set-brush black-brush) (send dc set-smoothing 'aligned) (for/fold ([x x]) ([i (in-range (get-count))]) - (send dc draw-ellipse (+ x delta -1) (+ y delta 1) (- s delta delta) (- s delta delta)) + (send dc draw-ellipse (- (+ x delta) hdelta) (+ y delta 1) (- s delta delta) (- s delta delta)) (+ x (- s hdelta hdelta))) (send dc set-pen p) (send dc set-brush b)