Respond to an unknown method call: Difference between revisions
Content added Content deleted
(added slate language) |
(→{{header|Tcl}}: ++ smalltalk) |
||
Line 216: | Line 216: | ||
slate[2]> |
slate[2]> |
||
</lang> |
</lang> |
||
=={{header|Smalltalk}}== |
|||
{{works with|GNU Smalltalk}} |
|||
<lang smalltalk>Object subclass: CatchThemAll [ |
|||
foo [ 'foo received' displayNl ] |
|||
bar [ 'bar received' displayNl ] |
|||
doesNotUnderstand: aMessage [ |
|||
"aMessage selector asString printNl." |
|||
('message "' , (aMessage selector asString) , '"') displayNl. |
|||
(aMessage arguments) do: [ :a | |
|||
'argument: ' display. a printNl. |
|||
] |
|||
] |
|||
] |
|||
|a| a := CatchThemAll new. |
|||
a foo. |
|||
a bar. |
|||
a weCanDoIt. |
|||
a theyCanToo: 'eat' and: 'walk'.</lang> |
|||
=={{header|Tcl}}== |
=={{header|Tcl}}== |