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.
  !