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

adjust password dots again

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-28 05:44:34 -07:00
parent 4e40efaf37
commit 2e8f771661
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/wxtextfield.rkt
View File

@ -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)