--- 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!