SimpleView.st
changeset 7779 5931d9c57148
parent 7778 b88c63d76636
child 7790 0c9e3f0b79b7
child 7975 8db05a559494
--- a/SimpleView.st	Fri Jan 20 23:06:27 2017 +0100
+++ b/SimpleView.st	Sat Jan 21 04:04:02 2017 +0100
@@ -4196,9 +4196,13 @@
 controller:aController
     "set the controller - that's the one handling user events"
 
-    controller := aController.
-    controller notNil ifTrue:[
-	controller view:self.
+    aController == self ifTrue:[
+        controller := nil
+    ] ifFalse:[    
+        controller := aController.
+        controller notNil ifTrue:[
+            controller view:self.
+        ]
     ]
 
     "Modified: / 31.10.1997 / 19:58:33 / cg"