diff options
| author | ribet | 2012-11-09 16:37:34 +0000 |
|---|---|---|
| committer | ribet | 2012-11-09 16:37:34 +0000 |
| commit | 939230afbc88b2085bfb02d2436f22bce3afe1f1 (patch) | |
| tree | 62a0fcbb51c3479fcf12f2cc2450ef12e5e8cbb0 | |
| parent | 6f0c1a015346596d7abe04e2ce4b6ec8215bd1c4 (diff) | |
| download | mtc-939230afbc88b2085bfb02d2436f22bce3afe1f1.zip mtc-939230afbc88b2085bfb02d2436f22bce3afe1f1.tar.gz mtc-939230afbc88b2085bfb02d2436f22bce3afe1f1.tar.bz2 mtc-939230afbc88b2085bfb02d2436f22bce3afe1f1.tar.xz | |
Correction SVG : pas de capstyle pour les rectangles
| -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 .=");"; |