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>:

>
> 2016-10-13 20:27 GMT+02:00 stepharo <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
>>
>
> Done. New slice committed
>

Reply via email to