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

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

Name: Tasks-Common-kph.35
Author: kph
Time: 13 December 2008, 7:41:03 am
UUID: 25f9270b-3047-4b23-943e-7ed01cbcbed4
Ancestors: Tasks-Common-kph.34

saving packages

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

Item was added:
+ ----- Method: TasksRelease class>>taskSave: (in category 'as yet unclassified') -----
+ taskSave: pkgInfo
+ 
+ 	"we link to the history of that already in the repo, so that the repo maintains a history"
+ 	
+ 	^ pkgInfo manager taskSaveWithComment: 'saved by ', self class name
+ !

Item was added:
+ ----- Method: TasksRelease class>>packageInfoForMyTasks (in category 'as yet unclassified') -----
+ packageInfoForMyTasks
+ 
+ 	^ PackageOrganizer default packageOfClass: self!

Item was added:
+ ----- 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 |
+ 	^ self define: [ :task |
+ 		
+ 		task if: [ (MCPackage named: pkgName) 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 ].
+ 				 
+ 					(wc taskSaveIn: repo withComment: 'Saved from ', SystemVersion current asString,'#' ,(self buildNumber ifNil: ['']) asString) run.
+ 				
+ 		]
+ 	]!

Item was added:
+ ----- Method: TasksRelease class>>taskSaveAll:rehomingIn: (in category 'as yet unclassified') -----
+ taskSaveAll: packageNames rehomingIn: repo
+ 
+ 	^ self dependsOn: (packageNames collect: [ :p | self taskSave: p rehomingIn: repo ])!

Item was removed:
- ----- Method: TasksRelease class>>taskSaveRehoming:in: (in category 'as yet unclassified') -----
- taskSaveRehoming: packageNames in: repo
- 
- 	| oldVersions wc |
- 	^ 
- 		[
- 	
- 			packageNames do: [ :pkgName |
- 				
- 				"findMostRecentInRepo, put that versionInfo into my history.
- 				if none, keep the old history"
- 				
- 				oldVersions := repo sortedVersionInfosAvailableForPackageNamed: pkgName.
- 				
- 				wc := (MCPackage named: pkgName) workingCopy.
- 				
- 				wc needsSaving ifTrue: [
- 					oldVersions ifNotEmpty: [ wc versionInfo: oldVersions first ].
- 				 
- 					(wc taskSaveIn: repo withComment: 'Saved from ', SystemVersion current asString,'#' ,(self buildNumber ifNil: ['']) asString) run.
- 				].
- 			].
- 		
- 
- 		]
- !