--- a/Font.st	Sat Apr 19 18:03:49 1997 +0200
+++ b/Font.st	Sat Apr 19 18:10:04 1997 +0200
@@ -571,34 +571,6 @@
     "
      (Font family:'helvetica' size:10) storeString
     "
-!
-
-userFriendlyName
-    "return a user-friendly printed representation of the receiver"
-
-    |nm|
-
-    nm := family.
-    face notNil ifTrue:[
-        nm := nm , '-', face.
-    ].
-    style notNil ifTrue:[
-        nm := nm , '-', style.
-    ].
-    size notNil ifTrue:[
-        nm := nm , '-', size printString.
-    ].
-    encoding notNil ifTrue:[
-        nm := nm , '-', encoding .
-    ].
-    ^ nm
-
-    "
-     View defaultFont userFriendlyName
-     Button defaultFont userFriendlyName
-    "
-
-    "Modified: 20.4.1996 / 23:25:36 / cg"
 ! !
 
 !Font methodsFor:'private'!
@@ -1098,6 +1070,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.60 1997-04-14 16:25:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.61 1997-04-19 16:09:52 cg Exp $'
 ! !
 Font initialize!