st := WriteStream on: ''. (Metaclass allInstances asSortedCollection: [:a :b | a name < b name]) do: [:cl | st nextPutAll: (cl name copyReplaceAll: ' class' with: ''); cr]. ptm := PluggableTextMorphWithModel new. ptm textMorph contents: st contents. ptm openInHand