--- a/GraphicsContext.st	Mon Jan 31 16:34:16 2000 +0100
+++ b/GraphicsContext.st	Tue Feb 01 12:23:58 2000 +0100
@@ -1761,8 +1761,10 @@
 
         w := aString widthOn:self.
         h := aString heightOn:self.
-        asc := font ascent.
-        desc := h - asc.
+asc := font ascent.
+desc := 0.
+"/        asc := font ascent max:(h // 2).
+"/        desc := (h - font ascent) max:(h // 2).
 
         tempForm := Form 
                     width:w 
@@ -2181,6 +2183,6 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.86 2000-01-17 11:23:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.87 2000-02-01 11:23:58 ca Exp $'
 ! !
 GraphicsContext initialize!