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

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

Name: Tasks-Common-kph.25
Author: kph
Time: 9 December 2008, 6:22:26 pm
UUID: fe33d2be-3c62-4946-bd4c-7f0567d55e03
Ancestors: Tasks-Common-kph.24

preparing build candidate

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

Item was added:
+ ----- Method: TasksRelease class>>isSaving (in category 'as yet unclassified') -----
+ isSaving
+ 
+ 	^ self status at: #saving ifAbsent: [ false ]!

Item was added:
+ ----- Method: TasksRelease class>>waypoints (in category 'waypoints') -----
+ waypoints
+ 
+ 	^ self status at: #waypoints ifAbsentPut: [ Set new ]!

Item was added:
+ ----- Method: TasksRelease class>>buildNumber (in category 'as yet unclassified') -----
+ buildNumber
+ 
+ 	^ self status at: #build ifAbsent: [ nil ]!

Item was added:
+ ----- Method: TasksRelease class>>buildNumber: (in category 'as yet unclassified') -----
+ buildNumber: n
+ 
+ 	^ self status at: #build put: n!

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

Item was added:
+ ----- Method: TasksRelease class>>isWaypointMissing: (in category 'waypoints') -----
+ isWaypointMissing: aSymbol
+ 
+ 	^ (self waypoints includes: aSymbol) not!

Item was added:
+ ----- Method: TasksRelease class>>suffix: (in category 'as yet unclassified') -----
+ suffix: str
+ 
+ 	^ self status at: #suffix put: str!

Item was added:
+ ----- Method: TasksRelease class>>markWaypoint: (in category 'waypoints') -----
+ markWaypoint: aSymbol
+ 
+ 	^ self waypoints add: #aSymbol!

Item was added:
+ ----- Method: TasksRelease class>>beSaving (in category 'as yet unclassified') -----
+ beSaving
+ 
+ 	^ self status at: #saving put: true!

Item was added:
+ ----- Method: TasksRelease class>>waypointsReset (in category 'waypoints') -----
+ waypointsReset
+ 
+ 	self status removeKey: #waypoints!