From 147b3db27350f5bfeb40bc5f5b9a8a5403781a3f Mon Sep 17 00:00:00 2001
From: ribet
Date: Fri, 28 Sep 2007 13:14:34 +0000
Subject: Ajout de la gestion des fontes XLFD

---
 src/SVG/SVG2zinc.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/src/SVG/SVG2zinc.pm b/src/SVG/SVG2zinc.pm
index 6c33b6f..22d41bb 100644
--- a/src/SVG/SVG2zinc.pm
+++ b/src/SVG/SVG2zinc.pm
@@ -1839,10 +1839,10 @@ sub analyze_text_style_hash
 	{
 		## to be extended to all other fonts definition parameters
 		## NB: fontWeight is not used yet!
-		my ($fontKey,$code) = &createNamedFont ($fontFamily, $fontSize, $fontWeight);
+		my ($fontKey,$fontName,$code) = &createNamedFont ($fontFamily, $fontSize, $fontWeight);
 		&display("\$fonts{\"$fontKey\"} = ") if $code;
 		&display($code) if $code;
-		$res .= ", -font => \"$fontKey\"";
+		$res .= ", -font => \"$fontName\"";
 		$current_font_key = $fontKey;
 	}
 	return $res;
-- 
cgit v1.1