--- a/XftFontDescription.st	Tue Oct 06 18:25:49 2015 +0200
+++ b/XftFontDescription.st	Tue Oct 06 22:31:47 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:libview' }"
 
 "{ NameSpace: Smalltalk }"
@@ -347,6 +349,16 @@
         family:familyString face:faceString style:styleString size:size sizeUnit:sizeUnit encoding:encoding
 !
 
+for:aFontOrFontDescription
+    ^ self
+        family:aFontOrFontDescription family
+        face:aFontOrFontDescription face 
+        style:aFontOrFontDescription style 
+        size:aFontOrFontDescription size 
+        sizeUnit:#pt 
+        encoding:aFontOrFontDescription encoding
+!
+
 new
     ^ self basicNew initialize.
 ! !
@@ -996,6 +1008,10 @@
     encoding := #'iso10646-1'.
 !
 
+isScaledFont
+    ^ true
+!
+
 setDevice: deviceArg patternId: patternIdArg fontId: fontIdArg
     device := deviceArg.
     fontId := fontIdArg.