--- a/Font.st	Sat Feb 24 17:29:06 1996 +0100
+++ b/Font.st	Sat Feb 24 17:29:41 1996 +0100
@@ -480,6 +480,27 @@
     "
      (Font family:'helvetica' size:10) storeString
     "
+!
+
+userFriendlyName
+    |nm|
+
+    nm := family.
+    face notNil ifTrue:[
+        nm := nm , '-', face.
+    ].
+    style notNil ifTrue:[
+        nm := nm , '-', style.
+    ].
+    size notNil ifTrue:[
+        nm := nm , '-', size printString.
+    ].
+    ^ nm
+
+    "
+     View defaultFont userFriendlyName
+     Button defaultFont userFriendlyName
+    "
 ! !
 
 !Font methodsFor:'private'!
@@ -805,6 +826,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.33 1996-02-23 16:17:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.34 1996-02-24 16:29:41 cg Exp $'
 ! !
 Font initialize!