| folderPath |

folderPath := 'Ø:\something\'.

{

	'NautilusBrowisingObject' -> [ Object browse ui window ].
	'BorderMorphExample' -> [ 	
		| morph fs |
		morph := BorderedMorph new.
		fs := GradientFillStyle ramp: {0.0 -> Color red. 1.0 -> Color green}.
		fs origin: morph bounds center.
		fs direction: (morph bounds width // 2) @ 0.
		fs radial: true.
		morph fillStyle: fs.
		morph
	].

} do: [ :assoc | 
	| fileRef morph |
	
	fileRef := (folderPath , assoc key , '.png') asFileReference.
	morph := assoc value value.
	
	PNGReadWriter putForm: morph imageForm onFileNamed: fileRef.
	
	morph delete. 
].