--- a/XftFontDescription.st	Thu Mar 06 15:28:08 2014 +0100
+++ b/XftFontDescription.st	Thu Mar 06 15:28:22 2014 +0100
@@ -1396,6 +1396,24 @@
     "Created: / 21-12-2013 / 01:20:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+getFontMetrics
+    |info|
+
+    info := DeviceWorkstation::DeviceFontMetrics new.
+    info
+      ascent:self ascent
+      descent:self descent
+      maxAscent:self maxAscent
+      maxDescent:self maxDescent
+      minWidth:self maxWidth
+      maxWidth:self maxWidth
+      avgWidth:self maxWidth
+      minCode:self minCode
+      maxCode:self maxCode
+      direction:#LeftToRight.
+    ^ info
+!
+
 height
     "return the height - the number of pixels above plus below the baseLine."
 
@@ -1741,11 +1759,11 @@
 !XftFontDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.28 2014-02-17 22:21:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.29 2014-03-06 14:28:22 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.28 2014-02-17 22:21:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.29 2014-03-06 14:28:22 stefan Exp $'
 ! !