9 lines
270 B
Smalltalk
9 lines
270 B
Smalltalk
|
accessing
|
||
|
|
exportEmptyHistogramNamed: aDictionary
|
||
|
|
|
||
|
|
| histogram |
|
||
|
|
histogram := RSChart new.
|
||
|
|
histogram extent: (aDictionary at: 'extent').
|
||
|
|
histogram build.
|
||
|
|
histogram canvas exportAsFileNamed: (aDictionary at: 'messagesType'), '-histogram' into: self folder.
|
||
|
|
^ self
|