From c5b94831e406013ee9720199fc0ea4d5ddc67ce4 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 15 Jun 2011 12:57:38 -0600 Subject: [PATCH] fix `colorize' nested inside `(linewidth #f ...)' --- collects/texpict/private/mrpict-extra.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/texpict/private/mrpict-extra.rkt b/collects/texpict/private/mrpict-extra.rkt index 734d86590a..10ba5f1b6d 100644 --- a/collects/texpict/private/mrpict-extra.rkt +++ b/collects/texpict/private/mrpict-extra.rkt @@ -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))