equal
deleted
inserted
replaced
149 ! |
149 ! |
150 |
150 |
151 instVarAt:index |
151 instVarAt:index |
152 "redefined to suppress direct access to my address, which is a non-object" |
152 "redefined to suppress direct access to my address, which is a non-object" |
153 |
153 |
154 index == 1 ifTrue:[ |
154 index == 1 ifTrue:[^ self address]. |
155 ^ self address |
|
156 ]. |
|
157 ^ super instVarAt:index |
155 ^ super instVarAt:index |
158 |
156 |
159 "Created: / 3.9.1999 / 13:47:03 / ps" |
157 "Created: / 3.9.1999 / 13:47:03 / ps" |
160 ! |
158 ! |
161 |
159 |
304 ! ! |
302 ! ! |
305 |
303 |
306 !ExternalAddress class methodsFor:'documentation'! |
304 !ExternalAddress class methodsFor:'documentation'! |
307 |
305 |
308 version |
306 version |
309 ^ '$Id: ExternalAddress.st 10517 2010-04-26 18:26:38Z vranyj1 $' |
307 ^ '$Id: ExternalAddress.st 10520 2010-05-04 11:50:05Z vranyj1 $' |
310 ! |
308 ! |
311 |
309 |
312 version_CVS |
310 version_CVS |
313 ^ '§Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.24 2009/12/07 15:58:16 cg Exp §' |
311 ^ 'Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.25 2010/04/08 11:57:19 cg Exp §' |
314 ! |
312 ! |
315 |
313 |
316 version_SVN |
314 version_SVN |
317 ^ '$Id: ExternalAddress.st 10517 2010-04-26 18:26:38Z vranyj1 $' |
315 ^ '$Id: ExternalAddress.st 10520 2010-05-04 11:50:05Z vranyj1 $' |
318 ! ! |
316 ! ! |
|
317 |