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

---
 debian/changelog    | 4 +++-
 src/SVG/SVG2zinc.pm | 1 +
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/debian/changelog b/debian/changelog
index 31fc494..172d36a 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,6 +1,8 @@
 mtools-perl (1.6.1-1) unstable; urgency=low
-  * 
+  * Correction SVG : pas de capstyle pour les rectangles
 	
+ -- Philippe Ribet <ribet@cena.fr>  Fri, 9 Nov 2012 17:35:00 +0100
+
 mtools-perl (1.6.0-1) unstable; urgency=low
 	
   *!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Animation MPath à faire avec le mode synchrone (voir commit 135)
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