On 27 May 2020, at 20:54, Toma�� Turk <tomaz.turk@ef.uni-lj.si> wrote:

I'm sorry, the raw tag at forum.world.st ate the code :-)

| newIcons |

newIcons := IdentityDictionary new.
((FileSystem zip: 'C:\icons\a.zip' asFileReference) 
    open workingDirectory allChildrenMatching: '*.png') do:
        [ :each | newIcons 
            at: each base asSymbol
            put: (ImageForm open: each )].

SpToolBarButton new 
   label: 'Go!';
   icon: (newIcons at: #iconFileName).

Tomaz