Offray/Socialmetrica
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge 29b758c58a

Browse Source
This commit is contained in:
ruidajo 2022-06-17 18:26:20 -05:00
commit c91c793683
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Socialmetrica.package/RSCanvas.extension/instance/exportAsFileNamed.into..st
View File

@ -1,14 +1,13 @@
*Socialmetrica
exportAsFileNamed: aName into: aFolder
self pngExporter
zoomToShapes;
noFixedShapes;
fileName: (aFolder / (aName, 'png')) fullName;
export.
"self pdfExporter
zoomToShapes;
noFixedShapes;
fileName: (aFolder / (aName, 'pdf')) fullName;
export."
| 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'