--- a/VisualComponent.st	Thu May 09 00:14:40 1996 +0200
+++ b/VisualComponent.st	Thu May 09 00:25:48 1996 +0200
@@ -81,6 +81,12 @@
 
     "Created: 8.5.1996 / 23:36:29 / cg"
     "Modified: 9.5.1996 / 00:13:22 / cg"
+!
+
+setParentViewIn:aView
+    "ignored here - for now"
+
+    "Created: 9.5.1996 / 00:19:39 / cg"
 ! !
 
 !VisualComponent methodsFor:'accessing - look'!
@@ -141,8 +147,36 @@
     "Created: 8.5.1996 / 23:49:54 / cg"
 ! !
 
+!VisualComponent methodsFor:'testing'!
+
+containsPoint:aPoint
+    "return true, if the receiver contains aPoint"
+
+    ^ self bounds containsPoint:aPoint
+
+    "Created: 9.5.1996 / 00:21:44 / cg"
+    "Modified: 9.5.1996 / 00:22:00 / cg"
+!
+
+hasBorder
+    "return true, if the receiver shows a border"
+
+    ^ false
+
+    "Modified: 9.5.1996 / 00:21:29 / cg"
+!
+
+intersects:aRectangle
+    "return true, if the receivers bounds intersects aRectangle"
+
+    ^ self bounds intersects:aRectangle
+
+    "Created: 9.5.1996 / 00:21:18 / cg"
+    "Modified: 9.5.1996 / 00:22:04 / cg"
+! !
+
 !VisualComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.2 1996-05-08 22:14:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.3 1996-05-08 22:25:48 cg Exp $'
 ! !