equal
deleted
inserted
replaced
4608 ! |
4608 ! |
4609 |
4609 |
4610 canUnderstand:aSelector |
4610 canUnderstand:aSelector |
4611 "return true, if the receiver or one of its superclasses implements aSelector. |
4611 "return true, if the receiver or one of its superclasses implements aSelector. |
4612 (i.e. true if my instances understand aSelector). |
4612 (i.e. true if my instances understand aSelector). |
4613 I think this is a bad name, but well, we are compatible." |
4613 I think this is a bad name (it sounds more like instance protocol, |
|
4614 and something like #instancesRespondTo: would have been better), |
|
4615 but well, we are compatible (sigh)." |
4614 |
4616 |
4615 ^ (self lookupMethodFor:aSelector) notNil |
4617 ^ (self lookupMethodFor:aSelector) notNil |
4616 |
4618 |
4617 " |
4619 " |
4618 True canUnderstand:#ifTrue: |
4620 True canUnderstand:#ifTrue: |