--- 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'!