--- a/XftFontDescription.st	Wed Jul 09 04:55:44 2014 +0200
+++ b/XftFontDescription.st	Wed Jul 09 04:56:19 2014 +0200
@@ -1620,6 +1620,11 @@
     ^ info
 !
 
+getFontResolution
+    device isNil ifTrue:[ ^ 72 @ 72 ].
+    ^ device resolution
+!
+
 height
     "return the height - the number of pixels above plus below the baseLine."
 
@@ -2037,11 +2042,11 @@
 !XftFontDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.58 2014-07-09 02:55:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.59 2014-07-09 02:56:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.58 2014-07-09 02:55:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.59 2014-07-09 02:56:19 cg Exp $'
 ! !