--- a/FontDescription.st	Mon Mar 17 10:07:24 2014 +0100
+++ b/FontDescription.st	Mon Mar 17 10:07:35 2014 +0100
@@ -568,6 +568,14 @@
     pixelSize := aNumber.
 !
 
+setSize:aNumber
+    size := aNumber.
+!
+
+setSizeUnit:aSymbol
+    sizeUnit := aSymbol.
+!
+
 shadow:aBoolean
     "added for ST-80 compatibility; actually ignored currently"
 
@@ -1685,11 +1693,11 @@
 !FontDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.88 2014-03-16 21:12:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.89 2014-03-17 09:07:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.88 2014-03-16 21:12:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.89 2014-03-17 09:07:35 cg Exp $'
 ! !