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

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

Name: Tasks-Common-kph.16
Author: kph
Time: 2 October 2008, 4:00:05 pm
UUID: 0c713cc2-cd9f-4065-a2e7-6fcac1ea3eec
Ancestors: Tasks-Common-kph.15

added missing methods fix: fixIfUnstable: fixOneDay:

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

Item was changed:
  ----- Method: TasksRelease class>>string: (in category 'as yet unclassified') -----
  string: aBugRef
+ 		
- 
  	^ self taskEnsureFix: aBugRef!

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

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

Item was changed:
  SakeTask subclass: #TasksRelease
+ 	instanceVariableNames: 'isStable'
- 	instanceVariableNames: ''
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Tasks-Common'!

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

Item was added:
+ ----- Method: TasksRelease class>>fix: (in category 'as yet unclassified') -----
+ fix: ref
+ 	"abbrev"
+ 	^ self taskEnsureFix: ref!

Item was added:
+ ----- Method: TasksRelease class>>isStable (in category 'as yet unclassified') -----
+ isStable
+ 
+ 	self withAllSuperclassesDo: [ :ea | (ea name endsWith: 'Unstable') ifTrue: [ ^ true ] ].
+ 	
+ 	^ false
+ 	
+ !

Item was removed:
- ----- Method: TasksRelease class>>fix (in category 'as yet unclassified') -----
- fix
- 
-  ^ Smalltalk at: ('TasksFix', (SystemVersion current majorMinorVersion copyWithout: $.)) asSymbol!