changeset 1724 | b5bec24eeaaf |
parent 1584 | 51c53d6656f4 |
child 1791 | 2bc8227a8b18 |
1723:30d20151ed81 | 1724:b5bec24eeaaf |
---|---|
3991 ownerPtr := classRef at:8. |
3991 ownerPtr := classRef at:8. |
3992 owner := memory fetchClassObjectAt:ownerPtr. |
3992 owner := memory fetchClassObjectAt:ownerPtr. |
3993 ^ owner |
3993 ^ owner |
3994 ! |
3994 ! |
3995 |
3995 |
3996 owningClassOrYourself |
|
3997 self owningClass notNil ifTrue:[^ self topOwningClass]. |
|
3998 ^ self |
|
3999 ! |
|
4000 |
|
3996 supportsMethodCategories |
4001 supportsMethodCategories |
3997 ^ true |
4002 ^ true |
3998 ! |
4003 ! |
3999 |
4004 |
4000 topOwningClass |
4005 topOwningClass |