The Trunk: MorphicExtras-nice.163.mcz

Nicolas Cellier uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-nice.163.mcz

==================== Summary ====================

Name: MorphicExtras-nice.163
Author: nice
Time: 3 May 2015, 2:16:38.03 am
UUID: 438a6829-eb6d-4c46-974a-e37c91919765
Ancestors: MorphicExtras-mt.162

Avoid using roundTo: aFloat if it's just for printing.
Why? (0.3 roundTo: 0.1) printString -> '0.30000000000000004'

=============== Diff against MorphicExtras-mt.162 ===============

Item was changed:
  ----- Method: WaveEditor>>chooseLoopStart (in category 'menu') -----
  chooseLoopStart
 
  | bestLoops choice start labels values |
  possibleLoopStarts ifNil: [
  UIManager default
  informUser: 'Finding possible loop points...' translated
  during: [possibleLoopStarts := self findPossibleLoopStartsFrom: graph cursor]].
  bestLoops := possibleLoopStarts copyFrom: 1 to: (100 min: possibleLoopStarts size).
  labels := OrderedCollection new.
  values := OrderedCollection new.
  bestLoops do: [:entry |
  | secs |
+ secs := ((loopEnd - entry first) asFloat / self samplingRate) printShowingMaxDecimalPlaces: 2.
- secs := ((loopEnd - entry first) asFloat / self samplingRate) roundTo: 0.01.
  labels add: ('{1} cycles; {2} secs' translated format:{entry third. secs}).
  values add: entry].
  choice := UIManager default chooseFrom: labels values: values.
  choice ifNil: [^ self].
  loopCycles := choice third.
  start := self fractionalLoopStartAt: choice first.
  self loopLength: (loopEnd asFloat - start) + 1.0.
  !