probable bug fix for arrowheads line drawing

svn: r13883
2009-02-28 20:04:44 +00:00 · 2009-02-28 20:04:44 +00:00 · 754bd0a84d
commit 754bd0a84d
parent b58c5881c6
1 changed files with 1 additions and 1 deletions
--- 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