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 <[email protected]>: > > 2016-10-13 20:27 GMT+02:00 stepharo <[email protected]>: > >> 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 >
