class Object
authorStefan Vogel <sv@exept.de>
Mon, 03 Dec 2018 17:51:34 +0100
changeset 4773 9a9b8a439b6d
parent 4772 23aa29691ef0
child 4774 acc6c997c195
class Object changed: #onChangeSend:to:
extensions.st
--- a/extensions.st	Thu Nov 29 04:36:52 2018 +0000
+++ b/extensions.st	Mon Dec 03 17:51:34 2018 +0100
@@ -1060,17 +1060,17 @@
     "/ for now, use an interestConverter, which is somewhat less efficient.
     "/ In the future, a more intelligent DependencyCollection class is planned for
 
-    ((self interests ? #())
-        contains:[:anInterest |
-            (anInterest isInterestConverter)
-            and:[ anInterest destination == anObject
-            and:[ anInterest selector == aSelector]]
-        ])
-            ifTrue:[^ self].
+    (self interests contains:[:anInterest |
+            anInterest isInterestConverter
+                and:[anInterest destination == anObject
+                and:[anInterest selector == aSelector]]
+            ]
+    ) ifFalse:[
+        self addInterest:(InterestConverter
+                              destination:anObject
+                              selector:aSelector)
+    ].
 
-    self addInterest:(InterestConverter
-                          destination:anObject
-                          selector:aSelector)
 
     "
      |p b|
@@ -1104,9 +1104,10 @@
      Transcript cr.
     "
 
-    "Created: 19.4.1996 / 10:26:38 / cg"
-    "Modified: 19.4.1996 / 12:34:26 / cg"
-    "Modified: 14.10.1996 / 22:28:27 / stefan"
+    "Created: / 19-04-1996 / 10:26:38 / cg"
+    "Modified: / 19-04-1996 / 12:34:26 / cg"
+    "Modified: / 14-10-1996 / 22:28:27 / stefan"
+    "Modified: / 30-11-2018 / 18:01:47 / Stefan Vogel"
 ! !
 
 !Object methodsFor:'dependents-st/v event simulation'!