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

fixed a bug in text's color argument, as noted in PR 10998

Browse Source 
original commit: 070a39d902a3ccb73a0c0e7d50c6bda0fe9ee69e
This commit is contained in:
Robby Findler 2010-07-07 13:42:40 -05:00
parent f820cb0205
commit 06f19bc758
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mrlib/image-core.rkt
View File

@ -725,9 +725,13 @@ has been moved out).
(let ([θ (degrees->radians (text-angle np-atomic-shape))]
[font (send dc get-font)])
(send dc set-font (text->font np-atomic-shape))
(send dc set-text-foreground
(or (send the-color-database find-color (text-color np-atomic-shape))
(send the-color-database find-color "black")))
(let ([color (get-color-arg (text-color np-atomic-shape))])
(send dc set-text-foreground
(cond
[(string? color)
(or (send the-color-database find-color color)
(send the-color-database find-color "black"))]
[else color])))
(let-values ([(w h _1 _2) (send dc get-text-extent (text-string np-atomic-shape))])
(let ([p (- (make-rectangular dx dy)
(* (make-polar 1 (- θ)) (make-rectangular (/ w 2) (/ h 2))))])