The Trunk: Tools-cmm.206.mcz

Chris Muller uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-cmm.206.mcz

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

Name: Tools-cmm.206
Author: cmm
Time: 9 March 2010, 4:42:37.215 pm
UUID: c45a0ccb-880d-44e9-aebd-2ff86f535134
Ancestors: Tools-laza.205

Fix MessageSet filtering by author, when the author initials have not yet been specified.

=============== Diff against Tools-laza.205 ===============

Item was changed:
  ----- Method: MessageSet>>filterToNotCurrentAuthor (in category 'filtering') -----
  filterToNotCurrentAuthor
  "Filter down only to messages not stamped with my initials"
-
- | myInitials |
- (myInitials := Utilities authorInitialsPerSe) ifNil: [^ self inform: 'No author initials set in this image'].
  self filterFrom:
  [:aClass :aSelector | | aTimeStamp aMethod |
  (aClass notNil and: [aSelector notNil]) and:
  [aMethod := aClass compiledMethodAt: aSelector ifAbsent: [nil].
  aMethod notNil and:
  [(aTimeStamp := Utilities timeStampForMethod: aMethod) isNil or:
+ [(aTimeStamp beginsWith: Utilities authorInitials) not]]]]!
- [(aTimeStamp beginsWith: myInitials) not]]]]!

Item was changed:
  ----- Method: MessageSet>>filterToCurrentAuthor (in category 'filtering') -----
  filterToCurrentAuthor
  "Filter down only to messages with my initials as most recent author"
-
- | myInitials |
- (myInitials := Utilities authorInitialsPerSe) ifNil: [^ self inform: 'No author initials set in this image'].
  self filterFrom:
  [:aClass :aSelector | | aMethod aTimeStamp |
  (aClass notNil and: [aSelector notNil]) and:
  [aMethod := aClass compiledMethodAt: aSelector ifAbsent: [nil].
  aMethod notNil and:
  [(aTimeStamp := Utilities timeStampForMethod: aMethod) notNil and:
+ [aTimeStamp beginsWith: Utilities authorInitials]]]]!
- [aTimeStamp beginsWith: myInitials]]]]!