10 lines
278 B
Smalltalk
10 lines
278 B
Smalltalk
accessing
|
|
exportRepliesHistogramWithBars: aNumberOfBars
|
|
|
|
| repliesDict |
|
|
repliesDict := {
|
|
'messagesType' -> 'replies'.
|
|
'extent' -> (800@200).
|
|
'color' -> (Color r:(246/255) g:(185/255) b:(46/255))
|
|
} asDictionary.
|
|
^ self exportHistogramFor: repliesDict By: aNumberOfBars |