Class Class

methodIncludesText: str | r |

   r <- ''.  methods do:

       [ :m | (m text find: str) notNil ifTrue: [ r <- r + Char newline asString + name + ':' + m name]].

   ^ r