oops
authorClaus Gittinger <cg@exept.de>
Mon, 23 Jun 2008 19:37:51 +0200
changeset 2368 99f14af1d5ec
parent 2367 6684f50b22cd
child 2369 98871b82aa87
oops
UIObjectView.st
--- 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:[