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

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

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

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