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

fix colorize' nested inside (linewidth #f ...)'

Browse Source
This commit is contained in:
Matthew Flatt 2011-06-15 12:57:38 -06:00
parent d5b25eb500
commit c5b94831e4
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/texpict/private/mrpict-extra.rkt
View File

@ -410,7 +410,7 @@
(unless requested-color
(fprintf (current-error-port)
"WARNING: couldn't find color: ~s\n" (cadr x)))
(set-pen (find-or-create-pen color (send p get-width) 'solid))
(set-pen (find-or-create-pen color (send p get-width) (send p get-style)))
(set-brush (find-or-create-brush color 'solid))
(set-text-foreground color))
(loop dx dy (caddr x))