diff options
-rw-r--r-- | debian/changelog | 4 | ||||
-rw-r--r-- | src/SVG/SVG2zinc.pm | 1 |
2 files changed, 4 insertions, 1 deletions
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 .=");"; |