From 754bd0a84dd05c1835b681379ffdd62453b8f23e Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 28 Feb 2009 20:04:44 +0000
Subject: [PATCH] probable bug fix for arrowheads line drawing

svn: r13883
---
 collects/texpict/utils.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/texpict/utils.ss b/collects/texpict/utils.ss
index 71fb2bc2d6..71ef173391 100644
--- a/collects/texpict/utils.ss
+++ b/collects/texpict/utils.ss
@@ -186,7 +186,7 @@
 	  (send dc set-pen (send the-pen-list
 				 find-or-create-pen
 				 (send p get-color)
-				 0
+				 (if solid? 0 (send p get-width))
 				 'solid))
 	  (send dc set-brush (send the-brush-list
 				   find-or-create-brush