全てのクラス

Squeak で全てのクラスをリスト表示する。

aCollection _ Set new.
SystemNavigation default allBehaviorsDo: [:each|
 each isMeta ifFalse: [aCollection add: each name]].
aCollection _ aCollection asSortedCollection.
m _ PluggableListMorph on: aCollection list: #yourself selected: #size changeSelected: nil.
m hResizing: #spaceFill.
w _ SystemWindow labelled: '全てのクラス'.
w addMorph: m frame: (0@0 corner: 1@1).
w openInWorld.
^aCollection