Pharo 4.0でアイコン一覧を表示する方法

いつも忘れてしまうので。

参考:SpecBooklet.pdf

| iconList |
iconList := IconListModel new.
iconList
  items: (Smalltalk ui icons iconSelectors collect: [ :each | each -> (Smalltalk ui icons iconNamed: each) ]);
  displayBlock: [ :assoc | assoc key];
  sortingBlock: [ :assocA :assocB | assocA key < assocB key ];
  icons: [ :assoc | assoc value ];
  title: 'Availiable icons for the current theme.'.
iconList openWithSpec