--- a/Font.st	Tue Feb 09 14:40:38 2010 +0100
+++ b/Font.st	Wed Feb 10 22:19:42 2010 +0100
@@ -298,6 +298,18 @@
 ! !
 
 
+!Font methodsFor:'converting'!
+
+asFontDescription
+    ^ FontDescription 
+        family:family
+        face:face
+        style:style
+        size:size
+        sizeUnit:(sizeUnit ? #pt)
+        encoding:encoding
+! !
+
 !Font methodsFor:'copying'!
 
 deepCopyUsing:aDictionary postCopySelector:postCopySelector
@@ -1213,11 +1225,11 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.119 2009-11-16 14:17:31 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.120 2010-02-10 21:19:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.119 2009-11-16 14:17:31 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.120 2010-02-10 21:19:42 cg Exp $'
 ! !
 
 Font initialize!