Class Object
back
respondsTo: aMessage
^ self class allMethods includesTest: [:m | m name = aMessage]