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