--- a/Font.st	Sat Feb 24 20:40:34 1996 +0100
+++ b/Font.st	Sat Feb 24 22:50:03 1996 +0100
@@ -497,12 +497,17 @@
     size notNil ifTrue:[
         nm := nm , '-', size printString.
     ].
+    encoding notNil ifTrue:[
+        nm := nm , '-', encoding .
+    ].
     ^ nm
 
     "
      View defaultFont userFriendlyName
      Button defaultFont userFriendlyName
     "
+
+    "Modified: 24.2.1996 / 22:14:20 / cg"
 ! !
 
 !Font methodsFor:'private'!
@@ -828,6 +833,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.35 1996-02-24 18:56:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.36 1996-02-24 21:50:03 cg Exp $'
 ! !
 Font initialize!