--- a/XftFontDescription.st	Wed Jul 20 17:07:38 2016 +0200
+++ b/XftFontDescription.st	Wed Jul 20 18:26:01 2016 +0200
@@ -1,4 +1,4 @@
-'From Smalltalk/X, Version:7.1.0.0 on 18-07-2016 at 18:55:24'                   !
+'From Smalltalk/X, Version:7.1.0.0 on 20-07-2016 at 15:21:49'                   !
 
 "{ Package: 'stx:libview' }"
 
@@ -571,7 +571,7 @@
 
 !XftFontDescription methodsFor:'accessing-private'!
 
-getFontId
+getXftFontId
     ^ fontId
 
     "Created: / 02-01-2014 / 23:29:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -886,6 +886,16 @@
 
 !XftFontDescription methodsFor:'getting a device font'!
 
+installInDeviceForGCId:aGCId
+    "install the font for aGCId"
+
+    (device isNil or:[fontId isNil]) ifTrue:[
+        Logger error:'no device font for: %1' with:self.
+        ^ nil.
+    ].
+    "nothing to install"
+!
+
 onDevice:aGraphicsDevice
     "Create a new XftFont representing the closes font as
      myself on aDevice; if one already exists, return the one."
@@ -915,7 +925,7 @@
     ].
 
     RecentlyUsedFonts keysAndValuesDo:[:index :aFont |
-	((aFont class == self class) and:[(self sameDeviceFontAs:aFont) and:[aFont getFontId notNil]]) ifTrue:[
+	((aFont class == self class) and:[(self sameDeviceFontAs:aFont) and:[aFont getXftFontId notNil]]) ifTrue:[
 	    "/ Transcript showCR:'hit'.
 	    RecentlyUsedFonts
 		removeIndex:index;