--- a/Cairo__FontSlant.st	Wed Jan 07 21:49:27 2015 +0100
+++ b/Cairo__FontSlant.st	Fri Jan 09 16:15:59 2015 +0000
@@ -5,7 +5,7 @@
 SharedPool subclass:#FontSlant
 	instanceVariableNames:''
 	classVariableNames:'CAIRO_FONT_SLANT_NORMAL CAIRO_FONT_SLANT_ITALIC
-		CAIRO_FONT_SLANT_OBLIQUE'
+		CAIRO_FONT_SLANT_OBLIQUE SymbolicFontSlantToCairoFontSlantMap'
 	poolDictionaries:''
 	category:'Cairo-Constants'
 !
@@ -17,6 +17,14 @@
     CAIRO_FONT_SLANT_NORMAL := 0.
     CAIRO_FONT_SLANT_ITALIC := 1.
     CAIRO_FONT_SLANT_OBLIQUE := 2.
+
+    SymbolicFontSlantToCairoFontSlantMap := Dictionary new.
+    SymbolicFontSlantToCairoFontSlantMap at: 'roman' put: CAIRO_FONT_SLANT_NORMAL.
+    SymbolicFontSlantToCairoFontSlantMap at: 'normal' put: CAIRO_FONT_SLANT_NORMAL.
+    SymbolicFontSlantToCairoFontSlantMap at: 'italic' put: CAIRO_FONT_SLANT_ITALIC.
+    SymbolicFontSlantToCairoFontSlantMap at: 'obligue' put: CAIRO_FONT_SLANT_OBLIQUE.
+
+    "Modified: / 09-01-2015 / 15:12:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !FontSlant class methodsFor:'constants'!