Class Class

methodsIncludeText: str | r |

   r <- ''.

   classes do: [:c | r <- r + (c methodIncludesText: str) ].

   r <- r + (Parser methodIncludesText: str).

   ^ r + 'End Of List'