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
]
].
].
!