equal
deleted
inserted
replaced
122 |cls sel description| |
122 |cls sel description| |
123 |
123 |
124 "extract the class that should have implemented the message. |
124 "extract the class that should have implemented the message. |
125 (in case of a super-send, this is not the receivers class)" |
125 (in case of a super-send, this is not the receivers class)" |
126 |
126 |
127 cls := suspendedContext sender searchClass. |
127 suspendedContext notNil ifTrue:[ |
|
128 cls := suspendedContext sender searchClass. |
|
129 ]. |
128 cls isNil ifTrue:[ |
130 cls isNil ifTrue:[ |
129 cls := self receiver class. |
131 cls := self receiver class. |
130 ]. |
132 ]. |
131 cls notNil ifTrue:[ |
133 cls notNil ifTrue:[ |
132 "displayString is better than 'cls name', |
134 "displayString is better than 'cls name', |
161 ! ! |
163 ! ! |
162 |
164 |
163 !MessageNotUnderstood class methodsFor:'documentation'! |
165 !MessageNotUnderstood class methodsFor:'documentation'! |
164 |
166 |
165 version |
167 version |
166 ^ '$Header: /cvs/stx/stx/libbasic/MessageNotUnderstood.st,v 1.8 2004-08-30 18:02:37 stefan Exp $' |
168 ^ '$Header: /cvs/stx/stx/libbasic/MessageNotUnderstood.st,v 1.9 2004-12-14 13:14:09 penk Exp $' |
167 ! ! |
169 ! ! |