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'
|