--- a/Font.st	Wed Jul 17 17:33:42 2002 +0200
+++ b/Font.st	Thu Jul 18 14:40:59 2002 +0200
@@ -579,6 +579,32 @@
     "Modified: 22.5.1996 / 13:08:40 / cg"
 !
 
+getFontMetrics
+    "ask the device about all of my actual attributes"
+
+    |f|
+
+    f := fontId.
+    replacementFont notNil ifTrue:[
+        f := replacementFont fontId.
+    ].
+
+    ^ device fontMetricsOf:f.
+!
+
+getFontResolution
+    "ask the device about all of my actual attributes"
+
+    |f|
+
+    f := fontId.
+    replacementFont notNil ifTrue:[
+        f := replacementFont fontId.
+    ].
+
+    ^ device fontResolutionOf:f.
+!
+
 releaseFromDevice
     "I am no longer available on the device"
 
@@ -1081,6 +1107,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.83 2002-05-15 07:55:13 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.84 2002-07-18 12:40:59 stefan Exp $'
 ! !
 Font initialize!