2003-08-18 プロトタイプ MorphicModel allSubclasses detect: [ :cl | cl prototype notNil ] ifNone: [nil] 使われていない。。。