13 lines
335 B
Smalltalk
13 lines
335 B
Smalltalk
*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' |