--- a/VisualPart.st	Thu May 09 10:33:21 1996 +0200
+++ b/VisualPart.st	Thu May 09 10:43:59 1996 +0200
@@ -27,13 +27,32 @@
 graphicsContext
     "return the graphicsContext"
 
-    ^ container gc
+    ^ container graphicsContext
 
     "Created: 9.5.1996 / 00:32:12 / cg"
+    "Modified: 9.5.1996 / 01:37:10 / cg"
+!
+
+graphicsDevice
+    "return the graphicsContext"
+
+    ^ container graphicsDevice
+
+    "Created: 9.5.1996 / 00:32:12 / cg"
+    "Modified: 9.5.1996 / 01:37:03 / cg"
+!
+
+topComponent
+    "return the top component - typically the topView"
+
+    ^ container topComponent
+
+    "Modified: 9.5.1996 / 01:37:10 / cg"
+    "Created: 9.5.1996 / 01:39:15 / cg"
 ! !
 
 !VisualPart class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.1 1996-05-08 23:11:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.2 1996-05-09 08:43:43 cg Exp $'
 ! !