The Trunk: Tools-nice.261.mcz

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

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

Name: Tools-nice.261
Author: nice
Time: 22 August 2010, 8:49:47.324 pm
UUID: 08276f8a-6725-44d9-8f17-6d546d34ab76
Ancestors: Tools-ar.260

minor change: avoid creating a SortedCollection when not necessary...
asSortedCollection asArray -> asArray sort

=============== Diff against Tools-ar.260 ===============

Item was changed:
  ----- Method: MessageSet>>sortByDate (in category 'message list') -----
  sortByDate
  "Sort the message-list by date of time-stamp"
 
  | assocs inOrder |
  assocs := messageList collect:
  [:aRef | | aDate aCompiledMethod |
  aDate := aRef methodSymbol == #Comment
  ifTrue:
  [aRef actualClass organization dateCommentLastSubmitted]
  ifFalse:
  [aCompiledMethod := aRef actualClass compiledMethodAt: aRef methodSymbol ifAbsent: [nil].
  aCompiledMethod ifNotNil: [aCompiledMethod dateMethodLastSubmitted]].
  aRef -> (aDate ifNil: [Date fromString: '01/01/1996'])].  "The dawn of Squeak history"
+ inOrder := assocs asArray sort: [:a :b | a value < b value].
- inOrder := assocs asSortedCollection:
- [:a :b | a value < b value].
 
+ messageList := inOrder collect: [:assoc | assoc key].
- messageList := inOrder asArray collect: [:assoc | assoc key].
  self changed: #messageList!