From ae457a9bf74a32cc54a7fcfba93d6a11a16ce782 Mon Sep 17 00:00:00 2001
From: ribet
Date: Tue, 30 Oct 2007 16:19:21 +0000
Subject: Fix for non-XLFD fonts.

---
 src/SVG/SVG2zinc.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/SVG/SVG2zinc.pm')

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;
-- 
cgit v1.1