equal
deleted
inserted
replaced
159 Same as sendTo: - for GNU-ST compatibility." |
159 Same as sendTo: - for GNU-ST compatibility." |
160 |
160 |
161 ^ self sendTo:aReceiver |
161 ^ self sendTo:aReceiver |
162 ! ! |
162 ! ! |
163 |
163 |
|
164 !Message methodsFor:'Compatibility-Squeak'! |
|
165 |
|
166 argument |
|
167 "return the 1st argument of the message" |
|
168 |
|
169 args size == 1 ifFalse:[ |
|
170 self error:'Not a 1-arg message' |
|
171 ]. |
|
172 ^ args at:1 |
|
173 ! ! |
|
174 |
164 !Message methodsFor:'accessing'! |
175 !Message methodsFor:'accessing'! |
165 |
176 |
166 arg1 |
177 arg1 |
167 "return the first argument of the message" |
178 "return the first argument of the message" |
168 |
179 |
226 ! ! |
237 ! ! |
227 |
238 |
228 !Message class methodsFor:'documentation'! |
239 !Message class methodsFor:'documentation'! |
229 |
240 |
230 version |
241 version |
231 ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.30 2004-08-22 18:06:43 stefan Exp $' |
242 ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.31 2004-09-22 09:55:56 cg Exp $' |
232 ! ! |
243 ! ! |