--- a/CompositePart.st	Fri Jul 10 02:00:15 1998 +0200
+++ b/CompositePart.st	Fri Jul 10 02:01:28 1998 +0200
@@ -46,10 +46,12 @@
     components isNil ifTrue:[
         components := OrderedCollection new
     ].
-    components add:aComponent
+    components add:aComponent.
+    aComponent container:self.
+    self changed:#sizeOfContents
 
     "Created: / 14.2.1997 / 17:57:59 / cg"
-    "Modified: / 6.7.1998 / 13:43:56 / cg"
+    "Modified: / 6.7.1998 / 18:50:40 / cg"
 !
 
 add:aComponent at:aPoint
@@ -67,15 +69,34 @@
      The sender is repsonsible for restoring the GC's state
      (i.e. it may be left in any undefined state)"
 
-    components do:[:aComponent |
-        aComponent displayOn:aGC
+    components notNil ifTrue:[
+        components do:[:aComponent |
+            aComponent displayOn:aGC
+        ]
     ].
 
     "Created: / 6.7.1998 / 13:59:33 / cg"
+    "Modified: / 6.7.1998 / 17:55:40 / cg"
+! !
+
+!CompositePart methodsFor:'view protocol mimicri'!
+
+realizeAllSubViews
+    "realize all my subviews - but not myself."
+
+    components notNil ifTrue:[
+        components do:[:component |
+            component realize
+        ]
+    ].
+
+    "Modified: / 5.9.1995 / 23:30:47 / claus"
+    "Modified: / 13.1.1997 / 21:25:49 / cg"
+    "Created: / 6.7.1998 / 18:37:39 / cg"
 ! !
 
 !CompositePart class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/CompositePart.st,v 1.2 1998-07-06 15:49:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/CompositePart.st,v 1.3 1998-07-10 00:01:28 cg Exp $'
 ! !