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