Oh!!! I just found this method:

iconNamed: aSymbol ifNone: aBlock

self icons at: aSymbol asSymbol ifPresent: [ :icon | ^ icon ].

"Trying the old way"

((aSymbol endsWith: 'Icon') or: [ (aSymbol endsWith: 'Form') ]) ifTrue: [��

self icons��

at: (aSymbol allButLast: 4) asSymbol��

ifPresent: [ :icon | ^ icon ]��

^ aBlock value

2016-10-14 11:42 GMT+02:00 Denis Kudriashov <dionisiydk@gmail.com>:

2016-10-13 20:27 GMT+02:00 stepharo <stepharo@free.fr>:
Denis

You can have a look the changes I did. There is more work to be done but I started.

https://pharo.fogbugz.com/f/cases/19201/iconNamed-part-4

Done. New slice committed