--- a/UIObjectView.st Mon Jun 23 19:25:57 2008 +0200
+++ b/UIObjectView.st Mon Jun 23 19:37:51 2008 +0200
@@ -896,11 +896,16 @@
].
clickedView := self findObjectAt:aPoint.
- (clickedView notNil
- and:[clickedView isComponentOf:selectedView]) ifTrue:[
- self unselect.
- selectedView := nil.
- viewOperatedUpon := nil
+ clickedView notNil ifTrue:[
+ (clickedView isComponentOf:selectedView) ifTrue:[
+ self unselect.
+ selectedView := nil.
+ viewOperatedUpon := nil
+ ] ifFalse:[
+ self unselect.
+ selectedView := nil.
+ viewOperatedUpon := clickedView
+ ].
].
viewOperatedUpon isNil ifTrue:[