The Trunk: Tools-nice.137.mcz

Nicolas Cellier uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-nice.137.mcz

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

Name: Tools-nice.137
Author: nice
Time: 20 October 2009, 9:53:35 am
UUID: 5e3ad144-e466-462b-ac9f-f4c0c7316dc5
Ancestors: Tools-nice.136

Track selectors usage, use #includesSelector: #selectorsDo: where due

=============== Diff against Tools-nice.136 ===============

Item was changed:
  ----- Method: MessageSet>>filterToCommentedMethods (in category 'filtering') -----
  filterToCommentedMethods
  "Filter the receiver's list down to only those items which have comments"
 
  self filterFrom:
  [:aClass :aSelector |
+ (aClass includesSelector: aSelector) and:
- (aClass selectors includes: aSelector) and:
  [(aClass firstPrecodeCommentFor: aSelector) isEmptyOrNil not]]!

Item was changed:
  ----- Method: MessageSet>>filterToUncommentedMethods (in category 'filtering') -----
  filterToUncommentedMethods
  "Filter the receiver's list down to only those items which lack comments"
 
  self filterFrom:
  [:aClass :aSelector |
+ (aClass includesSelector: aSelector) and:
- (aClass selectors includes: aSelector) and:
  [(aClass firstPrecodeCommentFor: aSelector) isEmptyOrNil]]!

Item was changed:
  ----- Method: Browser>>addAllMethodsToCurrentChangeSet (in category 'class functions') -----
  addAllMethodsToCurrentChangeSet
  "Add all the methods in the selected class or metaclass to the current change set.  You ought to know what you're doing before you invoke this!!"
 
  | aClass |
  (aClass := self selectedClassOrMetaClass) ifNotNil:
+ [aClass selectorsDo:
- [aClass selectors do:
  [:sel |
  ChangeSet current adoptSelector: sel forClass: aClass].
  self changed: #annotation]
  !