--- a/VisualPart.st	Wed Jun 05 16:00:20 1996 +0200
+++ b/VisualPart.st	Wed Jun 05 17:19:37 1996 +0200
@@ -36,11 +36,12 @@
 !VisualPart methodsFor:'accessing'!
 
 container
-    "return container"
+    "return my container"
 
     ^ container
 
     "Created: 9.5.1996 / 00:31:41 / cg"
+    "Modified: 5.6.1996 / 01:08:26 / cg"
 !
 
 container:something
@@ -76,10 +77,64 @@
 
     "Modified: 9.5.1996 / 01:37:10 / cg"
     "Created: 9.5.1996 / 01:39:15 / cg"
+!
+
+view
+    "return my view"
+
+    container isNil ifTrue:[^ nil].
+    ^ container view
+
+    "Created: 4.6.1996 / 21:32:34 / cg"
+    "Modified: 5.6.1996 / 01:20:13 / cg"
+! !
+
+!VisualPart ignoredMethodsFor:'view protocol mimicri'!
+
+containerChangedSize
+    "my container changed its size.
+     The default here is to ignore this, but some wrappers like
+     to resize when this happens."
+
+    ^ self
+
+    "Created: 4.6.1996 / 21:27:58 / cg"
+!
+
+create
+    "want myself to be created."
+
+    container create
+
+    "Created: 4.6.1996 / 21:30:25 / cg"
+!
+
+realize
+    "my container realized itself.
+     The default here is to ignore this, but some wrappers like
+     to do something when this happens."
+
+    ^ self
+
+    "Created: 4.6.1996 / 21:28:31 / cg"
+! !
+
+!VisualPart methodsFor:'view protocol mimicri'!
+
+subViewChangedSize
+    ^ self
+
+    "Created: 4.6.1996 / 21:35:57 / cg"
+!
+
+windowGroup
+    ^ container windowGroup
+
+    "Created: 5.6.1996 / 00:49:19 / cg"
 ! !
 
 !VisualPart class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.3 1996-05-13 08:50:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.4 1996-06-05 15:19:37 cg Exp $'
 ! !