The Trunk: Morphic-nice.215.mcz

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

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

Name: Morphic-nice.215
Author: nice
Time: 21 October 2009, 1:19:18 am
UUID: caa34332-b95c-4fc0-a9eb-116e10f81331
Ancestors: Morphic-nice.214

forgot one #asArray sort

=============== Diff against Morphic-nice.214 ===============

Item was changed:
  ----- Method: ComplexProgressIndicator class>>historyReport (in category 'as yet unclassified') -----
  historyReport
  "
  ComplexProgressIndicator historyReport
  "
  | answer data |
  History ifNil: [^Beeper beep].
  answer := String streamContents: [ :strm |
  (History keys asArray sort: [ :a :b | a asString <= b asString]) do: [ :k |
  strm nextPutAll: k printString; cr.
  data := History at: k.
+ (data keys asArray sort: [ :a :b | a asString <= b asString]) do: [ :dataKey |
- (data keys sort: [ :a :b | a asString <= b asString]) do: [ :dataKey |
  strm tab; nextPutAll: dataKey printString,'  ',
  (data at: dataKey) asArray printString; cr.
  ].
  strm cr.
  ].
  ].
  StringHolder new
  contents: answer contents;
  openLabel: 'Progress History'!