--- a/Font.st	Fri Mar 01 11:58:06 2019 +0100
+++ b/Font.st	Fri Mar 01 11:58:29 2019 +0100
@@ -297,18 +297,6 @@
 ! !
 
 
-!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
@@ -624,22 +612,6 @@
                                '-Font')
 
     "Modified: 20.4.1996 / 23:25:11 / cg"
-!
-
-storeOn:aStream
-    "append a character sequence to the argument, aStream from which the
-     receiver can be reconstructed using readFrom:."
-
-    aStream nextPutAll:'(Font family:'. family storeOn:aStream.
-    aStream nextPutAll:' face:'.        face storeOn:aStream.
-    aStream nextPutAll:' style:'.       style storeOn:aStream.
-    aStream nextPutAll:' size:'.        size storeOn:aStream.
-    aStream nextPutAll:' encoding:'.    encoding storeOn:aStream.
-    aStream nextPut:$)
-
-    "
-     (Font family:'helvetica' size:10) storeString
-    "
 ! !
 
 !Font methodsFor:'private'!