equal
deleted
inserted
replaced
27 passed to doesNotUnderstand:aMessage as argument. |
27 passed to doesNotUnderstand:aMessage as argument. |
28 |
28 |
29 This allows for re-evaluation of the failed send (after some cleanup). |
29 This allows for re-evaluation of the failed send (after some cleanup). |
30 As an example of its use, see the implementation of the Autoload-class. |
30 As an example of its use, see the implementation of the Autoload-class. |
31 |
31 |
32 $Header: /cvs/stx/stx/libbasic/Message.st,v 1.5 1993-11-08 02:30:54 claus Exp $ |
32 $Header: /cvs/stx/stx/libbasic/Message.st,v 1.6 1994-02-25 13:00:38 claus Exp $ |
33 '! |
33 '! |
34 |
34 |
35 !Message class methodsFor:'instance creation'! |
35 !Message class methodsFor:'instance creation'! |
36 |
36 |
37 selector:aSymbol |
37 selector:aSymbol |
93 ^ args |
93 ^ args |
94 ! ! |
94 ! ! |
95 |
95 |
96 !Message methodsFor:'printing'! |
96 !Message methodsFor:'printing'! |
97 |
97 |
98 printString |
98 displayString |
|
99 "return a string for display in inspectors etc." |
|
100 |
|
101 ^ 'Message(' , selector , ')' |
|
102 ! |
|
103 |
|
104 printOn:aStream |
99 "return a string for printing the receiver" |
105 "return a string for printing the receiver" |
100 |
106 |
101 ^ selector printString |
107 selector printOn:aStream |
102 ! ! |
108 ! ! |