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

fix `text-outline' test to include a curve

Browse Source
This commit is contained in:
Matthew Flatt 2011-12-26 06:27:22 -06:00
parent ae1ca5b91a
commit 3a1df23be6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/gracket/draw.rkt
View File

@ -663,7 +663,7 @@
(let ([p (make-object dc-path%)]
[old-pen (send dc get-pen)]
[old-brush (send dc get-brush)])
(send p text-outline (make-font #:size 32) "A" 360 190)
(send p text-outline (make-font #:size 32) "A8" 360 190)
(send dc set-pen "black" 1 'solid)
(send dc set-brush "pink" 'solid)
(send dc draw-path p)