特定のTraitを使っているクラスを列挙する

Traitを削除しようとして、どのクラスに影響があるのか調べたかったのだけど、NautilusのAnalyzeにそんな項目がなかったので、Traitを使っているクラスを抽出するコードを書いた。

(Smalltalk allClasses select: [:each | each hasTraitComposition ])
  select: [ :class| class traitComposition includesTrait: 【Trait名】 ]

どうせすぐに忘れるので備忘用。