[Pkg] Tasks: Tasks-Common-kph.44.mcz

squeak-dev-noreply at lists.squeakfoundation.org squeak-dev-noreply at lists.squeakfoundation.org
Sun Dec 14 01:58:13 UTC 2008


A new version of Tasks-Common was added to project Tasks:
http://www.squeaksource.com/Tasks/Tasks-Common-kph.44.mcz

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

Name: Tasks-Common-kph.44
Author: kph
Time: 14 December 2008, 1:58:12 am
UUID: ccd7fe49-f865-436a-9122-6071c56f0007
Ancestors: Tasks-Common-kph.43

pass configIsSaving as a nil comment in order to prevent saving

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

Item was changed:
  ----- 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: 
+ 		(self configIsSaving 
+ 				ifTrue: [ 'saved by ', self class name ] 
+ 				ifFalse: [ nil ])
- 	^ pkgInfo manager taskSaveWithComment: 'saved by ', self class name
  !

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 |
- 	| oldVersions wc |
  	^ 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 ', SystemVersion current asString,'#' ,self buildNumber.
+ 				
+ 					self configIsSaving ifFalse: [ comment := nil. "prevents saving" ].
+ 				
+ 					(wc taskAdoptHistoryFrom: repo saveWithComment: comment) run.
- 				 
- 					(wc taskSaveIn: repo withComment: 'Saved from ', SystemVersion current asString,'#' ,self buildNumber) run.
  				
  		]
  	]!



More information about the Packages mailing list