# HG changeset patch
# User ca
# Date 857546736 -3600
# Node ID da0459487089cdf6293d89783a5fde0b65393273
# Parent  d9377c397262cc675d7a67ad6c0b79e2cef41524
instance creation within a widget

diff -r d9377c397262 -r da0459487089 UIObjectView.st
--- a/UIObjectView.st	Tue Mar 04 17:42:27 1997 +0100
+++ b/UIObjectView.st	Wed Mar 05 08:25:36 1997 +0100
@@ -426,7 +426,7 @@
 "minimum extent
 "
     (anObject specClass supportsSubComponents) ifTrue:[
-        extent := 5@5
+        extent := 25@25
     ] ifFalse:[
         extent := self extent.
         x := extent x // 3.
@@ -526,22 +526,17 @@
     "
     |widget object start frame delta|
 
-    (createClass isNil or:[self numberOfSelections > 1]) ifTrue:[
-        self unselect.
-      ^ self setDefaultActions.
+    self selection notNil ifTrue:[
+        self numberOfSelections > 1 ifTrue:[
+            self warn:'to much elements selected'.
+          ^ self setDefaultActions.
+        ].
+        self unselect
     ].
 
-    (widget := self singleSelection) notNil ifTrue:[
-        self unselect.
-
-        (self isPoint:aPoint containedIn:widget) ifFalse:[
-            widget := self
-        ] ifTrue:[
-            widget specClass supportsSubComponents ifFalse:[
-                ^ self setDefaultActions.
-            ]
-        ]
-    ] ifFalse:[
+    (    (widget := self findObjectAt:aPoint) notNil
+     and:[widget specClass supportsSubComponents]
+    ) ifFalse:[
         widget := self
     ].
 
@@ -567,8 +562,6 @@
 
     self actionCreate:object frame:frame delta:delta.
     self invertOutlineOf:object.
-
-    "Modified: 1.3.1997 / 01:46:17 / cg"
 ! !
 
 !UIObjectView methodsFor:'object moving'!