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
