[Pkg] Tasks: Tasks-Common-kph.32.mcz

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

A new version of Tasks-Common was added to project Tasks:
http://www.squeaksource.com/Tasks/Tasks-Common-kph.32.mcz

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

Name: Tasks-Common-kph.32
Author: kph
Time: 13 December 2008, 1:11:21 am
UUID: d57e9180-7f96-41dd-b376-7e35ca0c555d
Ancestors: Tasks-Common-kph.31

fixing documentFixes

=============== Diff against Tasks-Common-kph.31 ===============

Item was changed:
  ----- Method: TasksRelease class>>taskEnsureFix: (in category 'as yet unclassified') -----
  taskEnsureFix: aFixString
  
  	| theBug theBugPage theBugScript fields selector cat |
- 
  	^ self define: [ :task |
  		
  		task info fixNumber: aFixString asNumber.
  					
  		task action: [ 
  			"install the fix and record its details for posterity"
  
  			theBug := Installer mantis bug: aFixString.
  			theBugPage := theBug report.
  			theBugScript := theBug script.
  	
  			fields := self mantisFieldsFrom: theBugPage.
  						
  			selector := fields at: 'Summary'.
  			selector :=  ('m', (selector copyFrom: 3 to: (selector size min: 40))) asLegalSelector asSymbol.
  			cat := (fields at: 'Status') ,'-' ,(fields at: 'Resolution').
  			
  			self at: selector category: cat putMethod: theBugScript doc: theBugPage.
+ 			
-  
  			Installer mantis ensureFix: aFixString.
  		].
  	]
  
  
  !

Item was changed:
  ----- Method: TasksRelease class>>taskDocumentFixes (in category 'as yet unclassified') -----
  taskDocumentFixes
  	"document any fixes that have not already been documented"
  
+ 	^ self dependingOn: (
+ 			(Installer mantis fixesApplied difference: self fixesApplied) 
+ 				collect: [ :fix | self taskEnsureFix: fix ])!
- 	^ self dependingOn: ((Installer mantis fixesApplied difference: self fixesApplied) collect: #asString)!