--- a/DeviceWorkstation.st	Tue Apr 03 23:48:32 2001 +0200
+++ b/DeviceWorkstation.st	Fri Apr 13 18:21:16 2001 +0200
@@ -4743,7 +4743,7 @@
     "Modified: 30.6.1997 / 11:06:36 / cg"
 !
 
-fullNameOf:aFontId
+fullFontNameOf:aFontId
     "return the full name of a font.
      Here, we return nil, not knowing anything about fonts"
 
@@ -7249,6 +7249,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.393 2001-04-03 16:29:48 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.394 2001-04-13 16:20:22 stefan Exp $'
 ! !
 DeviceWorkstation initialize!

--- a/Font.st	Tue Apr 03 23:48:32 2001 +0200
+++ b/Font.st	Fri Apr 13 18:21:16 2001 +0200
@@ -688,7 +688,7 @@
     device isNil ifTrue:[
         ^ nil
     ].
-    ^ device fullNameOf:fontId.
+    ^ device fullFontNameOf:fontId.
 
     "
      ((Font name:'6x10') on:Display) fullName  
@@ -1114,6 +1114,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.76 2000-07-02 12:53:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.77 2001-04-13 16:21:16 stefan Exp $'
 ! !
 Font initialize!