--- a/UIObjectView.st	Tue Mar 04 17:39:10 1997 +0100
+++ b/UIObjectView.st	Tue Mar 04 17:41:19 1997 +0100
@@ -425,13 +425,17 @@
 
 "minimum extent
 "
-    extent := self extent.
-    x := extent x // 3.
-    y := extent y // 3.
-    extent := anObject preferredExtent.
-
-    (extent x > x) ifTrue:[extent x:x].
-    (extent y > y) ifTrue:[extent y:y].
+    (anObject specClass supportsSubComponents) ifTrue:[
+        extent := 5@5
+    ] ifFalse:[
+        extent := self extent.
+        x := extent x // 3.
+        y := extent y // 3.
+        extent := anObject preferredExtent.
+
+        (extent x > x) ifTrue:[extent x:x].
+        (extent y > y) ifTrue:[extent y:y].
+    ].
 
 "setup structure
 "
@@ -557,6 +561,8 @@
 
     object origin:(frame origin).
     self initializeCreatedObject:object.
+    self actionCreate:object frame:frame delta:delta.
+    object extent:(actionData minExtent).
     object realize.
 
     self actionCreate:object frame:frame delta:delta.
@@ -1354,6 +1360,14 @@
     ^ self subclassResponsibility
 
 
+!
+
+supportsLabel:aComponent
+    "returns true if component supports label
+    "
+    ^ self subclassResponsibility
+
+
 ! !
 
 !UIObjectView methodsFor:'transaction'!