--- a/DisplayObject.st	Mon Mar 20 14:53:19 2006 +0100
+++ b/DisplayObject.st	Fri Mar 31 19:53:06 2006 +0200
@@ -202,6 +202,18 @@
     ^ self frame right
 !
 
+top
+    ^ self frame top
+!
+
+topLeft
+    ^ self frame topLeft
+!
+
+topRight
+    ^ self frame topRight
+!
+
 width
     "return the width of the frame"
 
@@ -535,5 +547,5 @@
 !DisplayObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.33 2004-11-25 09:58:41 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.34 2006-03-31 17:53:06 cg Exp $'
 ! !