[squeak-dev] The Trunk: Tools-nice.741.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Dec 25 14:13:51 UTC 2016


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!



More information about the Squeak-dev mailing list