equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libbasic' }" |
12 "{ Package: 'stx:libbasic' }" |
14 |
13 |
15 Object subclass:#Message |
14 Object subclass:#Message |
16 instanceVariableNames:'selector args' |
15 instanceVariableNames:'selector args' |
17 classVariableNames:'' |
16 classVariableNames:'' |
190 "return the arguments of the message" |
189 "return the arguments of the message" |
191 |
190 |
192 ^ args ? #() |
191 ^ args ? #() |
193 ! |
192 ! |
194 |
193 |
|
194 arguments:argArray |
|
195 "set arguments of the receiver" |
|
196 |
|
197 args := argArray |
|
198 |
|
199 "Created: / 31-05-2007 / 17:53:10 / cg" |
|
200 ! |
|
201 |
195 numArgs |
202 numArgs |
196 "return the number of arguments of the message" |
203 "return the number of arguments of the message" |
197 |
204 |
198 ^ args size |
205 ^ args size |
199 ! |
206 ! |
200 |
207 |
201 selector |
208 selector |
202 "return the selector of the message" |
209 "return the selector of the message" |
203 |
210 |
204 ^ selector |
211 ^ selector |
|
212 ! |
|
213 |
|
214 selector:aSymbol |
|
215 selector := aSymbol |
|
216 |
|
217 "Created: / 31-05-2007 / 17:53:06 / cg" |
205 ! ! |
218 ! ! |
206 |
219 |
207 !Message methodsFor:'printing & storing'! |
220 !Message methodsFor:'printing & storing'! |
208 |
221 |
209 displayString |
222 displayString |
243 ! ! |
256 ! ! |
244 |
257 |
245 !Message class methodsFor:'documentation'! |
258 !Message class methodsFor:'documentation'! |
246 |
259 |
247 version |
260 version |
248 ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.32 2005-01-21 16:49:05 stefan Exp $' |
261 ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.33 2007-05-31 15:51:35 cg Exp $' |
249 ! ! |
262 ! ! |