misc-deps
/
lux
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

dc-for-text-size

This commit is contained in:
Jay McCarthy 2014-11-19 23:04:33 -05:00
parent 7204b221ee
commit 7a4ce679cd
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
chaos/gui/val.rkt
View File

@ -25,6 +25,7 @@
(super-output! (super-output!
(gui/val-g c) (gui/val-g c)
(λ (w h dc) (λ (w h dc)
(parameterize ([dc-for-text-size dc])
(send dc set-background "black") (send dc set-background "black")
(send dc clear) (send dc clear)
(define sp (define sp
@ -37,7 +38,7 @@
(define top (/ (- h sph) 2)) (define top (/ (- h sph) 2))
(send dc set-brush "white" 'solid) (send dc set-brush "white" 'solid)
(send dc draw-rectangle left top spw sph) (send dc draw-rectangle left top spw sph)
(draw-pict sp dc left top)))) (draw-pict sp dc left top)))))
(define (chaos-label! c l) (define (chaos-label! c l)
(super-label! (gui/val-g c) l)) (super-label! (gui/val-g c) l))
(define (chaos-swap! c t) (define (chaos-swap! c t)