[squeak-dev] The Trunk: Tools-bf.106.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Aug 20 20:06:23 UTC 2009


Bert Freudenberg uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-bf.106.mcz

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

Name: Tools-bf.106
Author: bf
Time: 20 August 2009, 10:06:09 am
UUID: 0177dd1a-e9e0-4ed9-97ed-2f90a1abbf44
Ancestors: Tools-ar.105

Fix Message Finder problem (bug #7380)

=============== Diff against Tools-ar.105 ===============

Item was changed:
  ----- Method: SelectorBrowser>>markMatchingClasses (in category 'as yet unclassified') -----
  markMatchingClasses
  	"If an example is used, mark classes matching the example instance with an asterisk."
  
  	| unmarkedClassList firstPartOfSelector receiverString receiver |
  
  	self flag: #mref.	"allows for old-fashioned style"
  
  	"Only 'example' queries can be marked."
  	(contents asString includes: $.) ifFalse: [^ self].
  
  	unmarkedClassList := classList copy.
  
  	"Get the receiver object of the selected statement in the message list."
  	firstPartOfSelector := (Scanner new scanTokens: (selectorList at: selectorIndex)) second.
  	receiverString := (ReadStream on: (selectorList at: selectorIndex))
  						upToAll: firstPartOfSelector.
  	receiver := Compiler evaluate: receiverString.
  
  	unmarkedClassList do: [ :classAndMethod | | class |
  		(classAndMethod isKindOf: MethodReference) ifTrue: [
  			(receiver isKindOf: classAndMethod actualClass) ifTrue: [
+ 				classAndMethod stringVersion: '*', classAndMethod stringVersionDefault.
- 				classAndMethod stringVersion: '*', classAndMethod stringVersion.
  			]
  		] ifFalse: [
  			class := Compiler evaluate:
  					((ReadStream on: classAndMethod) upToAll: firstPartOfSelector).
  			(receiver isKindOf: class) ifTrue: [
  				classList add: '*', classAndMethod.
  				classList remove: classAndMethod
  			]
  		].
  	].
  !




More information about the Squeak-dev mailing list