--- a/VisualComponent.st	Sun May 26 13:09:58 1996 +0200
+++ b/VisualComponent.st	Sun May 26 13:28:16 1996 +0200
@@ -69,6 +69,29 @@
 
 !VisualComponent methodsFor:'accessing'!
 
+container:someContainer
+    "ignored here"
+
+    "Created: 9.5.1996 / 00:48:54 / cg"
+!
+
+setParentViewIn:aView
+    "ignored here - for now"
+
+    "Created: 9.5.1996 / 00:19:39 / cg"
+! !
+
+!VisualComponent methodsFor:'accessing - dimensions'!
+
+bottom
+    "return my bottom y coordinate"
+
+    ^ self bounds bottom
+
+    "Modified: 9.5.1996 / 00:13:12 / cg"
+    "Created: 26.5.1996 / 12:56:12 / cg"
+!
+
 bounds
     "return my bounds"
 
@@ -87,10 +110,13 @@
     "Modified: 9.5.1996 / 00:13:12 / cg"
 !
 
-container:someContainer
-    "ignored here"
+left
+    "return my left x coordinate"
 
-    "Created: 9.5.1996 / 00:48:54 / cg"
+    ^ self bounds left
+
+    "Created: 8.5.1996 / 23:36:07 / cg"
+    "Modified: 26.5.1996 / 12:56:22 / cg"
 !
 
 preferredBounds
@@ -102,10 +128,22 @@
     "Modified: 9.5.1996 / 00:13:22 / cg"
 !
 
-setParentViewIn:aView
-    "ignored here - for now"
+right
+    "return my right x coordinate"
+
+    ^ self bounds right
 
-    "Created: 9.5.1996 / 00:19:39 / cg"
+    "Modified: 9.5.1996 / 00:13:12 / cg"
+    "Created: 26.5.1996 / 12:56:25 / cg"
+!
+
+top
+    "return my top y coordinate"
+
+    ^ self bounds top
+
+    "Modified: 9.5.1996 / 00:13:12 / cg"
+    "Created: 26.5.1996 / 12:56:15 / cg"
 ! !
 
 !VisualComponent methodsFor:'accessing - look'!
@@ -236,5 +274,5 @@
 !VisualComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.6 1996-05-13 09:34:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.7 1996-05-26 11:28:16 cg Exp $'
 ! !