[Pkg] Tasks: Tasks-Common-kph.24.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.24.mcz

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

Name: Tasks-Common-kph.24
Author: kph
Time: 9 December 2008, 2:24:44 am
UUID: 6360f1de-1096-434f-8173-6f4092869af2
Ancestors: Tasks-Common-kph.23

+ types of fixes
+ fixes with the same number and different summaries are treated as the same

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

Item was added:
+ ----- Method: TasksRelease class>>fixNotNeeded:fixedIn: (in category 'as yet unclassified') -----
+ fixNotNeeded: ref fixedIn: aBlock
+ 
+ 	^ aBlock value!

Item was changed:
  ----- Method: TasksRelease class>>fixEssential: (in category 'as yet unclassified') -----
  fixEssential: ref
  
+ 	^ self taskEnsureFix: ref!
- 	^ (self isUpdate and: [ self isStable ]) ifFalse: [ nil ] ifTrue: [ self taskEnsureFix: ref ].!

Item was changed:
  ----- Method: TasksRelease class>>taskEnsureFix: (in category 'as yet unclassified') -----
  taskEnsureFix: aFixString
  
  	| theBugPage theBugScript fields selector cat |
  
- 	 
- 	 
  	^ self define: [ :task |
+ 		
+ 		task info fixNumber: aFixString asNumber.
  					
  		task action: [ 
  			"install the fix and record its details for posterity"
  
  			theBugPage := Installer mantis bug: aFixString.
  			theBugScript := Installer mantis bugScript: aFixString.
  	
  			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>>fix: (in category 'as yet unclassified') -----
  fix: ref
  	"abbrev"
+ 	^ self isNextRelease ifTrue: [ self taskEnsureFix: ref ].!
- 	^ (self isNextRelease and: [ self isStable ]) ifTrue: [ self taskEnsureFix: ref ].!

Item was added:
+ ----- Method: TasksRelease class>>fixNotNeeded: (in category 'as yet unclassified') -----
+ fixNotNeeded: ref
+ 
+ 	^ nil!

Item was added:
+ ----- Method: TasksRelease>>hashParts (in category 'as yet unclassified') -----
+ hashParts
+ 
+ 	^ { context receiver class. context selector. (self info fixNumber ifNil: [ args ]) }
+ 	
+  !