The Trunk: Tools-nice.741.mcz

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

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

Name: Tools-nice.741
Author: nice
Time: 25 December 2016, 3:13:35.841637 pm
UUID: 7c93c98f-3f12-44f0-bb60-f9b19d91a3c9
Ancestors: Tools-bf.740

Salvage MessageTrace by using asString rather than stringVersion, because stringVersion might be uninitialized

=============== Diff against Tools-bf.740 ===============

Item was changed:
  ----- Method: MessageTrace>>filterFrom: (in category 'filtering') -----
  filterFrom: aBlock
  "Filter the receiver's list down to only those items that satisfy aBlock, which takes a class an a selector as its arguments."
  | newList newAutoSelectStrings newMessageSelections oldList |
  oldList := Dictionary new.
  messageList do: [ : each | oldList at: each put: each ].
  newList := messageList class new.
  newAutoSelectStrings := autoSelectStrings class new.
  newMessageSelections := messageSelections class new.
  messageList withIndexDo:
  [ : each : index | (self class
  parse: each
  toClassAndSelector: aBlock) ifTrue:
  [ newList add: each.
  newAutoSelectStrings add: (autoSelectStrings at: index).
  newMessageSelections add: (messageSelections at: index) ] ].
  (self setFilteredList: newList) ifTrue:
  [ autoSelectStrings := newAutoSelectStrings.
  messageList do:
+ [ : each | each stringVersion: (oldList at: each) asString ] ]!
- [ : each | each stringVersion: (oldList at: each) stringVersion ] ]!

Item was changed:
  ----- Method: MessageTrace>>indentEverything (in category 'indenting') -----
  indentEverything
 
+ messageList do: [ :each | each stringVersion: (self indentionPrefixOfSize: 1), each asString ]
- messageList do: [ :each | each stringVersion: (self indentionPrefixOfSize: 1), each stringVersion ]
  !

Item was changed:
  ----- Method: MessageTrace>>indentionLevelAt: (in category 'private accessing') -----
  indentionLevelAt: msgListIndex
+ ^ self indentionsIn: (messageList at: msgListIndex) asString!
- ^ self indentionsIn: (messageList at: msgListIndex) stringVersion!