--- a/GraphicsContext.st	Wed Sep 04 20:59:24 2002 +0200
+++ b/GraphicsContext.st	Wed Sep 04 23:09:08 2002 +0200
@@ -1788,12 +1788,13 @@
         ^ self displayString:aString x:x y:y
     ].
 
+    font := font onDevice:device.
     ascent := font ascent.
+
     aString isString ifTrue:[
         "/ a real string;
         "/ do it in a monochrome form (for speed)
 
-        font := font onDevice:device.
         w := font widthOf:aString .
         h := font height.
         descent := h - ascent.
@@ -2238,6 +2239,6 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.93 2002-07-24 17:59:46 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.94 2002-09-04 21:09:08 cg Exp $'
 ! !
 GraphicsContext initialize!