equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1988 by Claus Gittinger |
2 COPYRIGHT (c) 1988 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
2180 aStream nextPut:$(. |
2178 aStream nextPut:$(. |
2181 self printClassNameOf:implementorClass on:aStream. |
2179 self printClassNameOf:implementorClass on:aStream. |
2182 aStream nextPut:$). |
2180 aStream nextPut:$). |
2183 ] |
2181 ] |
2184 ] ifFalse:[ |
2182 ] ifFalse:[ |
2185 | srchClass where | |
2183 | srchClass where sender | |
2186 |
2184 |
2187 srchClass := self searchClass. |
2185 srchClass := self searchClass. |
2188 srchClass ~~ receiverClass ifTrue:[ |
2186 srchClass ~~ receiverClass ifTrue:[ |
2189 aStream nextPut:$(. |
2187 aStream nextPut:$(. |
2190 self printClassNameOf:srchClass on:aStream. |
2188 self printClassNameOf:srchClass on:aStream. |
2196 " |
2194 " |
2197 true "(selector ~~ #doIt and:[selector ~~ #doIt:])" ifTrue:[ |
2195 true "(selector ~~ #doIt and:[selector ~~ #doIt:])" ifTrue:[ |
2198 " |
2196 " |
2199 kludge for methods invoked explicitly via valueWithReceiver... |
2197 kludge for methods invoked explicitly via valueWithReceiver... |
2200 " |
2198 " |
2201 (self sender notNil |
2199 ((sender := self sender) notNil |
2202 and:[ self sender isBridgeProxy not |
2200 and:[ sender isBridgeProxy not |
2203 and:[ self sender receiver isBridgeProxy not |
2201 and:[ sender receiver isBridgeProxy not |
2204 and:[ self sender receiver isMethod |
2202 and:[ sender receiver isMethod |
2205 and:[ self sender selector startsWith:'valueWithReceiver:' ]]]]) ifTrue:[ |
2203 and:[ sender selector startsWith:'valueWithReceiver:' ]]]]) ifTrue:[ |
2206 where := '(**DIRECTED**)'. |
2204 where := '(**DIRECTED**)'. |
2207 ] ifFalse:[ |
2205 ] ifFalse:[ |
2208 where := '(**NONE**)'. |
2206 where := '(**NONE**)'. |
2209 ]. |
2207 ]. |
2210 aStream nextPutAll:where |
2208 aStream nextPutAll:where |