The Inbox: Tools-fbs.450.mcz

Frank Shearar uploaded a new version of Tools to project The Inbox:
http://source.squeak.org/inbox/Tools-fbs.450.mcz

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

Name: Tools-fbs.450
Author: fbs
Time: 4 March 2013, 10:45:01.19 pm
UUID: 416ef277-60a3-4dea-938f-8de92d1368e2
Ancestors: Tools-fbs.449

Transform callers of Utilities class >> #timeStampForMethod: to callers of CompiledMethod >> #timeStamp.

=============== Diff against Tools-fbs.449 ===============

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

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

Item was changed:
  ----- Method: StringHolder>>timeStamp (in category '*Tools') -----
  timeStamp
  "Answer the time stamp for the chosen class and method, if any, else an empty string"
 
  |  selector  aMethod |
  (selector := self selectedMessageName) ifNotNil:
  [self selectedClassOrMetaClass
  ifNil:
  [^ String new]
  ifNotNil:
  [aMethod := self selectedClassOrMetaClass compiledMethodAt: selector ifAbsent: [nil].
+ aMethod ifNotNil: [^ aMethod timeStamp]]].
- aMethod ifNotNil: [^ Utilities timeStampForMethod: aMethod]]].
  ^ String new!