やりたいメソッドがどのクラスに含まれてるか調べるコード片@smalltalk

grep in st

"名前に'something'を含むメソッドを取得する"
Object withAllSubclasses do:
  [:clas | clas selectors do:
		[:sel | 
			(sel asLowercase
				includesSubString: 'something' )
					ifTrue: [
						Transcript
							show: clas name;
							show: ' ';
							show: sel;
							cr]]].