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 /src/SVG | |
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
Diffstat (limited to 'src/SVG')
-rw-r--r-- | src/SVG/SVG2zinc.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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 .=");"; |