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).