From 939230afbc88b2085bfb02d2436f22bce3afe1f1 Mon Sep 17 00:00:00 2001
From: ribet
Date: Fri, 9 Nov 2012 16:37:34 +0000
Subject: Correction SVG : pas de capstyle pour les rectangles

---
 src/SVG/SVG2zinc.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/SVG/SVG2zinc.pm')

diff --git a/src/SVG/SVG2zinc.pm b/src/SVG/SVG2zinc.pm
index c9be2cc..d7bedc0 100644
--- a/src/SVG/SVG2zinc.pm
+++ b/src/SVG/SVG2zinc.pm
@@ -1252,6 +1252,7 @@ sub rect {
 	$res .= ", -filled => 1" unless defined $attrs{fill} and $attrs{fill} eq 'none';
 	$add_stroke = 1 if defined $attrs{stroke};
 	delete $attrs{'stroke-linejoin'}; ## BUG: due to TkZinc limitation: no -joinstyle for rectangle 
+	delete $attrs{'stroke-linecap'}; ## BUG: due to TkZinc limitation: no -capstyle for rectangle
 	$res .= &analyze_style (\%attrs);
 	$res .= ", -linewidth => 0" if !$add_stroke;
 	$res .=");";
-- 
cgit v1.1