69 !Message class methodsFor:'instance creation'! |
69 !Message class methodsFor:'instance creation'! |
70 |
70 |
71 selector:aSymbol |
71 selector:aSymbol |
72 "return a new message object for a send without arguments" |
72 "return a new message object for a send without arguments" |
73 |
73 |
74 ^ self basicNew selector:aSymbol |
74 ^ self basicNew setSelector:aSymbol arguments:nil |
75 arguments:nil |
|
76 ! |
75 ! |
77 |
76 |
78 selector:aSymbol with:anArg |
77 selector:aSymbol with:anArg |
79 "return a new message object for a send with one argument" |
78 "return a new message object for a send with one argument. |
|
79 OBSOLETE: use #selector:argument: for ST-80 compatibility." |
80 |
80 |
81 ^ self basicNew selector:aSymbol |
81 ^ self basicNew setSelector:aSymbol arguments:(Array with:anArg) |
82 arguments:(Array with:anArg) |
|
83 ! |
82 ! |
84 |
83 |
85 selector:aSymbol with:arg1 with:arg2 |
84 selector:aSymbol with:arg1 with:arg2 |
86 "return a new message object for a send with two arguments" |
85 "return a new message object for a send with two arguments. |
|
86 OBSOLETE: use #selector:arguments: for ST-80 compatibility." |
87 |
87 |
88 ^ self basicNew selector:aSymbol |
88 ^ self basicNew setSelector:aSymbol arguments:(Array with:arg1 with:arg2) |
89 arguments:(Array with:arg1 with:arg2) |
|
90 ! |
89 ! |
91 |
90 |
92 selector:aSymbol withAll:argArray |
91 selector:aSymbol withAll:argArray |
93 "return a new message object for a send with many arguments. |
92 "return a new message object for a send with many arguments. |
94 This is going to be obsolete; use #selector:arguments:" |
93 OBSOLETE: use #selector:arguments: for ST-80 compatibilty." |
95 |
94 |
96 ^ self basicNew selector:aSymbol arguments:argArray |
95 ^ self basicNew setSelector:aSymbol arguments:argArray |
|
96 ! |
|
97 |
|
98 selector:aSymbol argument:anArg |
|
99 "return a new message object for a send with one argument" |
|
100 |
|
101 ^ self basicNew setSelector:aSymbol arguments:(Array with:anArg) |
97 ! |
102 ! |
98 |
103 |
99 selector:aSymbol arguments:argArray |
104 selector:aSymbol arguments:argArray |
100 "return a new message object for a send with many arguments" |
105 "return a new message object for a send with many arguments" |
101 |
106 |
102 ^ self basicNew selector:aSymbol arguments:argArray |
107 ^ self basicNew setSelector:aSymbol arguments:argArray |
103 ! ! |
108 ! ! |
104 |
109 |
105 !Message class methodsFor:'queries'! |
110 !Message class methodsFor:'queries'! |
106 |
111 |
107 isBuiltInClass |
112 isBuiltInClass |