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

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

Name: Tasks-Common-kph.47
Author: kph
Time: 14 December 2008, 2:42:46 am
UUID: ca2d7c65-2c74-4fac-bdb0-5aad461031ef
Ancestors: Tasks-Common-kph.46

take the buildStampNow at one place, rather than anytime a buildNumber is found to be nil

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

Item was added:
+ ----- Method: TasksRelease class>>buildDateStampString (in category 'as yet unclassified') -----
+ buildDateStampString
+  
+ 	^ self buildDateStamp printYYMMDDHHSS: ':'. 
+ 	
+ 	!

Item was changed:
  ----- Method: TasksRelease class>>buildNumber (in category 'as yet unclassified') -----
  buildNumber
   
+ 	^ self status at: #build ifAbsent:['']
- 	^ self status at: #build ifAbsent: [ 
- 		 DateAndTime now printYYMMDDHHSS: ':'. 
- 	]
  	
  "
  	self buildNumber
  "!

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

Item was added:
+ ----- Method: TasksRelease class>>buildDateStamp (in category 'as yet unclassified') -----
+ buildDateStamp
+  
+ 	^ self status at: #date ifAbsent:[ self error: 'buildStampNow has never been called']
+ 	
+ !

Item was changed:
  ----- Method: TasksRelease class>>taskSave:rehomingIn: (in category 'as yet unclassified') -----
  taskSave: pkgName rehomingIn: repo
  
  	"we link to the history of that already in the repo, so that the repo maintains a history"
  	
  	| oldVersions wc comment |
  	^ self define: [ :task |
  		
  		task if: [ (MCPackage named: pkgName) workingCopy needsSaving ] .  
  		
  		task action: [
  	
  				"findMostRecentInRepo, put that versionInfo into my history.
  				if none, keep the old history"
  				
  				oldVersions := repo sortedVersionInfosAvailableForPackageNamed: pkgName.
  				
  				wc := (MCPackage named: pkgName) workingCopy.
  				
  	
  					oldVersions ifNotEmpty: [ wc versionInfo: oldVersions first ].
+ 				    comment := 'Saved from ', self saveFileName .
- 				    comment := 'Saved from ', SystemVersion current asString,'#' ,self buildNumber.
  				
  					self configIsSaving ifFalse: [ comment := nil. "prevents saving" ].
  				
  					(wc taskAdoptHistoryFrom: repo saveWithComment: comment) run.
  				
  		]
  	]!

Item was added:
+ ----- Method: TasksRelease class>>saveFileName (in category 'as yet unclassified') -----
+ saveFileName
+ 
+ 	^ SystemVersion current version asString,'_#' , self buildNumber ,'@',self buildDateStampString!

Item was changed:
  ----- Method: TasksRelease class>>taskSaveAll (in category 'as yet unclassified') -----
  taskSaveAll
  
  	^ self define: [ :task |
  		
+  		
- 		task if: [ self configIsSaving ].
- 		
  		task action: {
+ 		
+ 			[ self buildStampNow ].
+ 		 
  			self taskSaveAll: self kernelPackages rehomingIn: self repository.
  		
  			self taskSave: self packageNameForMyTasks.
  		}
  	]!

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