[Pkg] Sake : Sake-Core-kph.71.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Sake-Core was added to project Sake :
http://www.squeaksource.com/Sake/Sake-Core-kph.71.mcz

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

Name: Sake-Core-kph.71
Author: kph
Time: 8 December 2008, 1:12:51 am
UUID: fed6027d-617a-4c64-967d-056184c0b1c5
Ancestors: Sake-Core-kph.70

+ tasks for class categorization
+ #removeSelectorsCategory:

=============== Diff against Sake-Core-kph.70 ===============

Item was added:
+ ----- Method: SakeClassTask>>setCategory: (in category 'accessing') -----
+ setCategory: aNewCategory
+ 
+ 	^ self define: [ :task |
+ 		
+ 		task if: [ (Smalltalk classNamed: theClassName) notNil ].
+ 
+ 		task action: [ 
+ 			task theClass category: aNewCategory. 
+ 		]
+ 	]!

Item was added:
+ ----- Method: SakeClassTask class>>category:classes: (in category 'as yet unclassified') -----
+ category: aCategory classes: classes
+ 
+ 	| c |
+ 	
+ 	c := classes isSymbol ifTrue: [ Array with: classes ] ifFalse: [ c ].
+ 	 
+ 	^ self dependingOn: (c collect: [ :ea | (self class: ea) setCategory: aCategory ])!

Item was added:
+ ----- Method: SakeTask class>>category:classes: (in category 'as yet unclassified') -----
+ category: c classes: cs
+ 
+ 	^  SakeClassTask category: c classes: cs
+ !

Item was added:
+ ----- Method: SakeClassTask>>removeSelectorsCategory: (in category 'accessing') -----
+ removeSelectorsCategory: aCategory
+ 
+ 	^ self define: [ :task |
+ 
+ 			task if: [ (Smalltalk classNamed: theClassName) notNil ].
+ 
+ 			task action: [ 
+ 		 
+ 				(task theClass organization listAtCategoryNamed: aCategory) do: [ :each | self theClass removeSelector: each].
+ 				
+ 				task theClass organization removeEmptyCategories.
+ 		
+ 			] 
+ 		
+ 	]!