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

Modurizing file exporters.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-06-17 18:10:48 -05:00
parent fdeecc5fde
commit 29b758c58a
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 *Socialmetrica
exportAsFileNamed: aName into: aFolder exportAsFileNamed: aName into: aFolder
| exporters |
self pngExporter exporters := {'png' -> #pngExporter .
zoomToShapes; 'pdf' -> #pdfExporter } asDictionary.
noFixedShapes; exporters keysAndValuesDo: [:k :v |
fileName: (aFolder / (aName, 'png')) fullName; (self perform: v)
export. zoomToShapes;
"self pdfExporter noFixedShapes;
zoomToShapes; fileName: (aFolder / (aName, '.', k)) fullName;
noFixedShapes; export.
fileName: (aFolder / (aName, 'pdf')) fullName; ].
export."
^ aFolder / aName, 'png' ^ aFolder / aName, 'png'