|dict methods|
   dict := Dictionary new.
   methods := MenuIcons class selectors select: [:each |  '*Icon' match:
each asString].
   methods do: [:each | dict at: each put: (MenuIcons perform: each)].
   GraphicalDictionaryMenu openOn: dict withLabel: 'MenuIcons'


Hey! What a nive piece of code! I didn't know the existence of
GraphicalDictionaryMenu.

Cheers,

Diego