diff options
Diffstat (limited to 'src/SVG')
| -rw-r--r-- | src/SVG/SVG2zinc.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/SVG/SVG2zinc.pm b/src/SVG/SVG2zinc.pm index d1e3235..5b25aa1 100644 --- a/src/SVG/SVG2zinc.pm +++ b/src/SVG/SVG2zinc.pm @@ -1844,7 +1844,11 @@ sub analyze_text_style_hash my ($fontKey,$fontName,$code) = &createNamedFont ($fontFamily, $fontSize, $fontWeight); &display("\$fonts{\"$fontKey\"} = ") if $code; &display($code) if $code; - $res .= ", -font => \"$fontName\""; + if ($fontKey =~ /^XLFD-/ ) { + $res .= ", -font => \"$fontName\""; + } else { + $res .= ", -font => \"$fontKey\""; + } $current_font_key = $fontKey; } return $res; |