diff options
| author | ribet | 2007-10-30 16:19:21 +0000 |
|---|---|---|
| committer | ribet | 2007-10-30 16:19:21 +0000 |
| commit | ae457a9bf74a32cc54a7fcfba93d6a11a16ce782 (patch) | |
| tree | ccbfbc8482710026397237235cb665105543447a /src/SVG/SVG2zinc.pm | |
| parent | 56ace5bcfdcf422b6b2e179c0c173be3efd1c0a3 (diff) | |
| download | mtc-ae457a9bf74a32cc54a7fcfba93d6a11a16ce782.zip mtc-ae457a9bf74a32cc54a7fcfba93d6a11a16ce782.tar.gz mtc-ae457a9bf74a32cc54a7fcfba93d6a11a16ce782.tar.bz2 mtc-ae457a9bf74a32cc54a7fcfba93d6a11a16ce782.tar.xz | |
Fix for non-XLFD fonts.
Diffstat (limited to 'src/SVG/SVG2zinc.pm')
| -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; |