14 lines
306 B
Smalltalk
14 lines
306 B
Smalltalk
*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."
|
|
^ aFolder / aName, 'png' |