*Socialmetrica
exportAsFileNamed: aName into: aFolder
	| exporters |
	exporters := {'png' -> #pngExporter . 
		'pdf' -> #pdfExporter } asDictionary.
	exporters keysAndValuesDo: [:k :v | 
		(self perform: v) 
			zoomToShapes;
			noFixedShapes;
			fileName: (aFolder / (aName, '.', k)) fullName;
			export.	
	].
	^ aFolder / aName, 'png'