ascentOn:
authorClaus Gittinger <cg@exept.de>
Fri, 28 Feb 2003 18:42:42 +0100
changeset 1708 43566f862a4d
parent 1707 a19b46682bc6
child 1709 fc33be8aaa9c
ascentOn:
MultiImage.st
--- a/MultiImage.st	Fri Feb 28 18:20:42 2003 +0100
+++ b/MultiImage.st	Fri Feb 28 18:42:42 2003 +0100
@@ -58,6 +58,12 @@
 
 !MultiImage methodsFor:'queries'!
 
+ascentOn:aGC
+    "I will not draw myself above the baseline"
+
+    ^ 0
+!
+
 height  
     ^ images inject:0 into:[:maxSoFar :eachImage | maxSoFar max:eachImage height].
 !
@@ -73,5 +79,5 @@
 !MultiImage class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MultiImage.st,v 1.5 2002-10-29 09:45:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MultiImage.st,v 1.6 2003-02-28 17:42:42 cg Exp $'
 ! !