diff options
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 .=");"; |