equal
deleted
inserted
replaced
2043 " |
2043 " |
2044 |
2044 |
2045 "Modified: 1.11.1996 / 16:27:04 / cg" |
2045 "Modified: 1.11.1996 / 16:27:04 / cg" |
2046 ! |
2046 ! |
2047 |
2047 |
2048 whoStringWith:sep |
2048 whoStringWith:sepString |
2049 "return a string like className>>selector, |
2049 "return a string like className>>selector, where '>>' is replaced by sepString. |
2050 if this is not an unbound method. |
2050 If this is an unbound method, return 'unbound'. |
2051 Otherwise return 'unbound'. Used with debugging." |
2051 Used with debugging." |
2052 |
2052 |
2053 |who| |
2053 |who| |
2054 |
2054 |
2055 who := self who. |
2055 who := self who. |
2056 who notNil ifTrue:[ |
2056 who notNil ifTrue:[ |
2057 ^ who methodClass name , sep , (who methodSelector storeString) |
2057 ^ who methodClass name , sepString , (who methodSelector storeString) |
2058 ]. |
2058 ]. |
2059 ^ 'unboundMethod' |
2059 ^ 'unboundMethod' |
2060 |
2060 |
2061 " |
2061 " |
2062 Method new whoStringWith:' >> ' |
2062 Method new whoStringWith:' >> ' |