--- a/Font.st	Fri Sep 12 13:40:44 2003 +0200
+++ b/Font.st	Thu Sep 25 16:40:53 2003 +0200
@@ -473,6 +473,10 @@
 
 !Font methodsFor:'printing & storing'!
 
+encodingVectorFor:aspect
+    ^ Array with:(#family->self family) with:(#face->self face) with:(#style->self style) with:(#size->self size)
+!
+
 printOn:aStream
     "append a user printed representation of the receiver to aStream.
      The format is suitable for a human - not meant to be read back.
@@ -1073,7 +1077,7 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.87 2003-01-23 16:07:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.88 2003-09-25 14:40:53 tm Exp $'
 ! !
 
 Font initialize!