--- a/Form.st	Fri Feb 28 18:17:23 2003 +0100
+++ b/Form.st	Fri Feb 28 18:21:18 2003 +0100
@@ -2021,6 +2021,12 @@
 
 !Form methodsFor:'queries'!
 
+ascentOn:aGC
+    "displayOn: does not draw above baseline"
+
+    ^ 0
+!
+
 bounds
     "return my bounds (added to make forms usable as VisualComponents)"
 
@@ -2140,7 +2146,7 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.123 2003-02-28 17:17:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.124 2003-02-28 17:21:18 cg Exp $'
 ! !
 
 Form initialize!