From 80bf6a93e5a1e63a9946c2554104cf5debdbf818 Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Wed, 16 Apr 2014 15:13:45 -0400
Subject: [PATCH] Fix shapes with borders to work with pen styles.

---
 pkgs/unstable-pkgs/unstable-lib/gui/pict.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pkgs/unstable-pkgs/unstable-lib/gui/pict.rkt b/pkgs/unstable-pkgs/unstable-lib/gui/pict.rkt
index 56b1da749d..4d1fb37247 100644
--- a/pkgs/unstable-pkgs/unstable-lib/gui/pict.rkt
+++ b/pkgs/unstable-pkgs/unstable-lib/gui/pict.rkt
@@ -227,7 +227,7 @@
                                  find-or-create-pen
                                  border-color
                                  border-width
-                                 'solid))
+                                 (send old-pen get-style)))
           (send dc draw-path dc-path (- dx x) (- dy y))
           (send dc set-brush old-brush)
           (send dc set-pen   old-pen))