[Pkg] Sake : Sake-Core-kph.101.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Sake-Core was added to project Sake :
http://www.squeaksource.com/Sake/Sake-Core-kph.101.mcz

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

Name: Sake-Core-kph.101
Author: kph
Time: 23 February 2009, 1:12:58 am
UUID: 1ba83f34-0147-11de-8efb-000a95edb42a
Ancestors: Sake-Core-kph.100

fixed problem with MC tasks, if no repo is defined for a package

=============== Diff against Sake-Core-kph.100 ===============

Item was changed:
  ----- Method: MCWorkingCopy>>taskAdoptHistoryFrom:saveWithComment: (in category '*sake-core') -----
  taskAdoptHistoryFrom: repo saveWithComment: message
   
  	"The repo is the one we are maintaining. If there are no changes then adopt the one in the repo as the master"
  	
  	| closest |
  	^ SakeTask define: [ :task |
   
  		task if: [ self needsSaving ].
   				
  		task action: [ self repositoryGroup addRepository: repo.
  			self setMyRepositoryFromLastAdded.
+ 			closest := self repository closestAncestorVersionFor: ancestry ifNone:[nil].
- 			closest := repo closestAncestorVersionFor: ancestry ifNone:[nil].
  			closest ifNotNil: [ ancestry := MCWorkingAncestry new addAncestor: closest info ].
  			
+ 		(self changesRelativeToRepository: self repository) isEmpty 
- 		(self changesRelativeToRepository: repo) isEmpty 
  				ifTrue: [  
  						 self modified: false.
  						 ] 
  				ifFalse: [
  					message ifNotNil: [  
+ 						self repository storeVersion: (self newVersionWithName: self uniqueVersionName message: message)]
- 						repo storeVersion: (self newVersionWithName: self uniqueVersionName message: message)]
  				] 
  	  	]
  	]
   !