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

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

Name: Tasks-Common-kph.22
Author: kph
Time: 8 December 2008, 6:33:22 pm
UUID: 70f84ee4-a253-4d1c-a2c1-9dba6761326e
Ancestors: Tasks-Common-kph.21

added isUpdate concept

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

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

Item was added:
+ ----- Method: TasksRelease class>>isUpdate (in category 'as yet unclassified') -----
+ isUpdate
+ 	^ self isNextRelease not!

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

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

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

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

Item was changed:
  ----- Method: TasksRelease class>>fix: (in category 'as yet unclassified') -----
  fix: ref
  	"abbrev"
+ 	^ (self isNextRelease and: [ self isStable ]) ifTrue: [ self taskEnsureFix: ref ].!
- 	^ self taskEnsureFix: ref!

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

Item was changed:
  ----- Method: TasksRelease class>>suffix (in category 'as yet unclassified') -----
  suffix
  
+  	(self isUnstable) ifTrue: [ ^ 'unstable' ].
-  	(self name endsWith: 'Unstable') ifTrue: [ ^ 'unstable' ].
  	(self name beginsWith: 'ReleaseAfter') ifTrue: [ ^ 'tc' ].
  	(self name beginsWith: 'Release') ifTrue: [ ^ 'rc' ].
  	
  	 self error: 'not known'!

Item was added:
+ ----- Method: TasksRelease class>>isNextRelease (in category 'as yet unclassified') -----
+ isNextRelease
+ 
+ 	^ self name includesSubString: 'ReleaseAfter'
+ !

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