equal
deleted
inserted
replaced
2128 " |
2128 " |
2129 kludge for methods invoked explicitly via valueWithReceiver... |
2129 kludge for methods invoked explicitly via valueWithReceiver... |
2130 " |
2130 " |
2131 (self sender notNil |
2131 (self sender notNil |
2132 and:[ self sender isBridgeProxy not |
2132 and:[ self sender isBridgeProxy not |
|
2133 and:[ self sender receiver isBridgeProxy not |
2133 and:[ self sender receiver isMethod |
2134 and:[ self sender receiver isMethod |
2134 and:[ self sender selector startsWith:'valueWithReceiver:' ]]]) ifTrue:[ |
2135 and:[ self sender selector startsWith:'valueWithReceiver:' ]]]]) ifTrue:[ |
2135 where := '(**DIRECTED**)'. |
2136 where := '(**DIRECTED**)'. |
2136 ] ifFalse:[ |
2137 ] ifFalse:[ |
2137 where := '(**NONE**)'. |
2138 where := '(**NONE**)'. |
2138 ]. |
2139 ]. |
2139 aStream nextPutAll:where |
2140 aStream nextPutAll:where |
2141 ] |
2142 ] |
2142 ]. |
2143 ]. |
2143 |
2144 |
2144 "Created: / 23-10-2013 / 11:13:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2145 "Created: / 23-10-2013 / 11:13:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2145 "Modified: / 05-02-2014 / 17:50:33 / cg" |
2146 "Modified: / 05-02-2014 / 17:50:33 / cg" |
2146 "Modified: / 21-07-2018 / 17:42:04 / Claus Gittinger" |
2147 "Modified: / 03-08-2018 / 08:44:19 / Claus Gittinger" |
2147 ! |
2148 ! |
2148 |
2149 |
2149 printWithSeparator:sep on:aStream |
2150 printWithSeparator:sep on:aStream |
2150 "append a brief description (excl. arguments) of the receiver onto aStream" |
2151 "append a brief description (excl. arguments) of the receiver onto aStream" |
2151 |
2152 |