[squeak-dev] The Trunk: Tools-nice.137.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Oct 20 19:54:15 UTC 2009


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




More information about the Squeak-dev mailing list