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 <dionisi...@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 <dionisi...@gmail.com 
> <mailto:dionisi...@gmail.com>>:
> 
> 2016-10-13 20:27 GMT+02:00 stepharo <steph...@free.fr 
> <mailto:steph...@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 
> <https://pharo.fogbugz.com/f/cases/19201/iconNamed-part-4>
> Done. New slice committed
> 

Reply via email to