equal
deleted
inserted
replaced
2191 ^ false |
2191 ^ false |
2192 |
2192 |
2193 |
2193 |
2194 ! |
2194 ! |
2195 |
2195 |
|
2196 homeMethod |
|
2197 "for common protocol with blocks: if the receiver is a method, |
|
2198 return the receiver; otherwise, if its a block, return its home |
|
2199 method." |
|
2200 |
|
2201 ^ self |
|
2202 |
|
2203 "Created: 19.6.1997 / 16:13:12 / cg" |
|
2204 ! |
|
2205 |
2196 isInvalid |
2206 isInvalid |
2197 "return true, if this method is not executable due to |
2207 "return true, if this method is not executable due to |
2198 a (re)-compilation error. Since invalidation is by patching the |
2208 a (re)-compilation error. Since invalidation is by patching the |
2199 methods code-pointer to a trap function, check for that here. |
2209 methods code-pointer to a trap function, check for that here. |
2200 (see comment in Method>>invalidCodeObject)." |
2210 (see comment in Method>>invalidCodeObject)." |
2742 ! ! |
2752 ! ! |
2743 |
2753 |
2744 !Method class methodsFor:'documentation'! |
2754 !Method class methodsFor:'documentation'! |
2745 |
2755 |
2746 version |
2756 version |
2747 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.129 1997-04-18 14:29:11 cg Exp $' |
2757 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.130 1997-06-19 14:16:47 cg Exp $' |
2748 ! ! |
2758 ! ! |
2749 Method initialize! |
2759 Method initialize! |