--- a/Geometric.st	Fri Feb 28 14:24:17 2003 +0100
+++ b/Geometric.st	Fri Feb 28 18:20:18 2003 +0100
@@ -379,6 +379,12 @@
 
 !Geometric methodsFor:'displaying'!
 
+ascentOn:aGC
+    "displayOn: does not draw above baseline"
+
+    ^ 0
+!
+
 displayFilledOn:aGC
     "display myself filled on a graphicsContext; the current graphics
      attributes are used. Since we do not know how to do it, nothing is
@@ -520,7 +526,7 @@
 !Geometric class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Geometric.st,v 1.28 2002-12-09 10:44:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Geometric.st,v 1.29 2003-02-28 17:20:18 cg Exp $'
 ! !
 
 Geometric initialize!