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