8 lines
267 B
Smalltalk
8 lines
267 B
Smalltalk
|
accessing
|
||
|
|
configureDefaultReportingPeriod
|
||
|
|
[ config at: 'reportingPeriod' ]
|
||
|
|
onErrorDo: [ self config
|
||
|
|
at: 'reportingPeriod'
|
||
|
|
put: (Timespan
|
||
|
|
starting: messages oldest created asDateAndTime
|
||
|
|
ending: messages newest created asDateAndTime + 1 minute) ]
|