yes, that was me providing a compatibility/traduction layer :)
you will find a couple more of them in the image. I call them ���normalisation methods���: they are meant to translate names into something we can interpret��� there is also some like that in the menu building if I remember well :P

Esteban

On 14 Oct 2016, at 15:34, Denis Kudriashov <dionisiydk@gmail.com> wrote:

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