--- a/Font.st	Fri Feb 23 03:22:17 1996 +0100
+++ b/Font.st	Fri Feb 23 03:22:38 1996 +0100
@@ -456,6 +456,7 @@
 
 getFontInfos
     replacementFont isNil ifTrue:[
+        encoding := device encodingOf:fontId.
         ascent := device ascentOf:fontId.
         descent := device descentOf:fontId.
         maxAscent := device maxAscentOf:fontId.
@@ -467,6 +468,7 @@
             width := minWidth
         ]
     ] ifFalse:[
+        encoding := replacementFont encoding.
         ascent := replacementFont ascent.
         descent := replacementFont descent.
         maxAscent := replacementFont maxAscent.
@@ -477,7 +479,7 @@
     ].
     isFixedWidth := minWidth == maxWidth
 
-    "Modified: 22.2.1996 / 13:31:09 / cg"
+    "Modified: 23.2.1996 / 00:46:04 / cg"
 !
 
 restored
@@ -554,6 +556,16 @@
     ^ (self on:aDevice ifAbsent:nil) notNil
 !
 
+fullName
+    device isNil ifTrue:[
+        ^ nil
+    ].
+    ^ device fullNameOf:fontId.
+
+    "Created: 23.2.1996 / 00:44:10 / cg"
+    "Modified: 23.2.1996 / 00:46:44 / cg"
+!
+
 height
     "return the fonts characters normal (average) height;
      That is the number of units (usually pixels) on the device.
@@ -763,6 +775,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.30 1996-02-22 20:54:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.31 1996-02-23 02:22:38 cg Exp $'
 ! !
 Font initialize!