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